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Welcome to another chapter in the continuing saga of, 'Can a 
small newsletter devoted to the TRS-80 Models I, III, and 4 
survive in a world of catalog-sixe publications?' 

I'm writing these lines in Mid-March, and up here that means 
we still have about a foot of snow on the ground. A couple of 
nights ago it got down to 20 below (Fahrenheit), today we're 
having a heat wave - it's all of 40 degrees! I mention this to 
point out that we now have something in common with those "big* 
publications - it's called "lead time". And what that means to you 
is that if you type in a program from NORTHERN BYTES, you 
should be sure to get at least the next two or three issues to 
make sure you get any corrections that might appear. You folks 
have been pretty good about letting us know when you find a bug 
in one of the programs we publish, and believe me, we do 
appreciate it! 

Most of the program listings in NORTHERN BYTES will 
eventually find their way onto a TAS Public Domain Library disk. 
IF you get an early version of the disk, you might get a 'bu ggy' 
program, so when you see a correction in HORTHERH BYTES, you 
might check your PD disks to see if the corrections have been 
applied. One caution - we sometimes renumber assembly language 
source code listings on the disks after making corrections, so you 
should probably first compare the listing on the disk to the 
original listing in NORTHERN BYTES, and THEH check to see if 
corrections have bean applied. When we do make a correction on 
one of the Public Domain disk programs, well try to remember to 
include a comment line to that effect at the start of the program. 

Perhaps I'm getting ahead of myself a bit. Some of you may 
not be familiar with the TAS Public Domain Software Library. If 
that's the case, you should check it out. For «10, you get a 
"flippy" double-sided disk (works in all standard 40-track disk 
drives), crammed full of Public Domain programs. As I write this, 
we have two such disks, perhaps there will be more by thetime 
you get this issue. He arm aiming for QUALITY, not QUANTITY, 
in this library, so I doubt that you will ever see hundreds of disks 
in the library. If you have some good public domain programs 
you'd like to put in the library, by all means send them in (but 
PLEASE don't feel obligated to "stuff" the disk you send - we 
would MUCH rather Have a disk with ONE or TWO good quality 
Public Domain programs, with documentation, than every program 
you've ever downloaded from your local Bulletin Board System)! 
And, if you'd like a table of contents for the most recent disks in 
the library, send a self addressed, stamped envelope to The 
Alternate Source, 704 North Pennsylvania Avenue, Lansing, 
Michigan 48906. 

Turning to other things. I'm gratified by the number of 
article submissions I've received recently. Considering that we 
aren't paying for articles (except to put you on the mailing list to 
automatically receive the next six issues of NORTHERN BYTES, 
if we publish that many more), I'd say that some of you folks are 
mighty generous, and we thank you f or that. Folks, I'd encourage 
you to submit articles to NORTHERN BYTES as a way to keep a 
dialogue going among TRS-80 users. When the rest of the world 
seems to be tilting between IBM-compatibles, computers with 
"fruity* names, and low-cost game machines, we know we have a 
good, solid computer that has stood the test of time. The Tandy 
line has something for everyone, but a lot of software and 
hardware manufacturers have jumped onto the IBM bandwagon. 
That's okay, let them slug it out with the big boys if they want to 
- we know that there's still many hundreds of thousands of 
TRS-80 users out there! Maybe now we can all learn from each 
other. 

You know, it's a funny thing. The Apple people started out 
handing out technical information on the Apple to all comers. 
Their manuals documented all the PEEKs and POKEs you might 
ever want to use. They encouraged "outside" support and user 
groups, and the Apple took off. Tandy took the opposite approach, 
providing as little technical information as possible, discouraging 
outside vendors from selling TRS-80 compatible products in any 
way possible, and refusing to aid or even acknowledge the 



existence of user groups. How times have changed! The Model 4 
Technical Reference Manual is a masterpiecei a truly useful 
documentation of both the hardware and software in the Model 4. 
Tandy now is more tolerant of outside support, they even 
encourage it where it doesn't directly compete with existing 
Tandy products. The TRS-80 Microcomputer News now carries 
information on new computer clubs and user groups. And, what of 
Apple? From what I've heard, they're going the other way. The 
Macintosh is a BUSIKESS machine, thank you, and Apple Computer 
will tell you what you need to know about it. PEEKs and POKEs? 
Assembly language calls? Technical Information? Why would you 
want that, unless you're a (shudder) "hacker" - and "hackers" 
don't buy BUSINESS machines... 

In the middle of all the commotion, Tandy is quietly selling 
computers, and most TRS-80 owners wouldn't part with their 
machines for anything else in a comparable price range (except, 
perhaps, for those who are writing commercial software and fear 
that they are going to be "left behind"). I've also heard tales of 
folks who are using the Tandy hi-resolution modification, or 
similar hi-res hardware, and developing "windowing" type 
software. I suspect that as we all continue to learn from each 
other, we may find that the Tandy computer line isn't dead yet - 
and we may see innovations in software we never dreamed 
possible, right on our old Model I/III/4 computers! 

We encourage you to keep in touch with us. Send us your 
articles, programs, patches, hints, tips, techniques, or anything 
else you'd like to share with the community of TRS-80 users as a 
whole. Keep in mind that we can receive electronic mail through 
the MCI Mail system, the MCI Mail address is 102-7413. 
Overseas readers with access to TELEX service can send us a 
TELEX message at 6501027413 (answerback is 6501027413 MCI). 
If you have a choice of area codes for the U.S.A., use the one for 
Western Union or MCI International TELEX numbers. When you 
send us MCI Mail or TELEX messages, we can download them right 
into a TRS-80, and use the search-and-replace capabilities of a 
word processing program to remove the extra carriage returns. 
That makes it easy for us, because we don't have to re-type your 
material! By the way, MCI Mail has a new nationwide toll-free 
number that supersedes the one published in Volume 3, Number 2 
of NORTHERN BYTES - it's (800) 323-0905. If that one is busy, 
the number we published should still work, it's (800) 323-7731. 

One final note - I'm really surprised that no one has taken 
us up on our offer to run non-commercial "unclassified" ads for 10 
cents per word per issue (we'll even throw in your name, address, 
and phone number for free). Payment must be made in advance, or 
you may charge it to your VISA or MASTERCARD. TRS-80 user 
groups may run a FREE ad of up to 25 words (NOT counting name, 
address, and phone number) for any purpose except to sell 
products (free user group ads will run once, but you may re-submit 
them as often as you like). Display advertising is also available, 
for information on that contact Charley Butler at The Alternate 

Source (phone (317) 482-8270). 

I hope you enjoy this issue of NORTHERN BYTES! 

THE EXTERMINATOR - Flyswatters ready, everyone? Time 
to kill the BUGS that have appeared in previous issues of 

NORTHERN BYTES! _«„■» wrco 

The SETDATE/CMD program featured in NORTHERN BYTES 
Volume 3, Number 2 (and as found on early versions of TAS Public 
Domain Library Disk #001) had a couple of problems that would 
affect some users but not others. Michael Davis found a bug that 
affects DOSPLUS 3.5 users that have the KI/DVR program 
installed. The problem is that at line 2040 the program makes a 
CALL to 2BH, the keyboard ecan r outine. The following 
instruction dine 2030) is JR LOETKET, which trended J* *JH 
if no key was pressed. According to TRS-80 ROM ROUTINES 
DOCUMENTED (whose author shall remain nameless at this point), 
on exit from the routine at 2BH, the Z flag will be set and the A 
register will contain zero if no key was pressed. Well, 'taint so. 
The I flag is NOT necessarily set if no key was pressed, although 



the A register DOES contain zero. So, to fix this bug, add the 
following line to the SETDATE/CMD source code*. 



2045 OR 



|Z flag set if no key 



By the way, this bug won't affect many users, except to make the 
keyboard response a bit sluggish* However, when the DOSPLUS 
KI/DVR program is used, SETDATE/CMD refuses to respond to 
any keystrokes - it just locks up! 

That's not the end of the problems with SETDATE/CMD. I 
knew that the fact that I didn't CLOSE an open file would bother 
some folks. I've used the program on several DOSes as is, with 
no problems. But, for those of you that just can't stand the 
thought of not closing a file once it has been opened, you have a 
friend in Paul Snively. He not only sides with you, he provides a 
solution. Here are Paul's comments: 

"I couldn't help but think that not closing SETDATE/CMD 
was a little kludgey, and even dangerous (a phobia, no doubt, 
caused by Model I TRSDOS, which has a nasty habit of trashing 
out the directory if you're fool enough to KILL an open file!!). 
Anyway, the problem, of course, is that when you call 443FH <to 
REWIND to record of the file,) the DOS apparently insists on 
resetting the EOF value to record 0! Makes sense, right? 
However, there is something you can do to avoid that! 

"What we need to do is put the DOS into 'direct access 
mode'. This is a nasty piece of jargon which basically means 
'don't change the EOF, no matter what happens!' To make your 
program go into direct access mode, add the following lines to 
SETDATE/ASM! , .^ -._—„«- i „ % 

(Note: This will NOT work with TRSDOS 1.31 J 

2171 INC DE SPoint to FCB+1 

2172 LD A,(DE) SGet status byte from FCB 

2173 OR 40H SSet bit 6 

2174 LD (DE),A {Re-save status byte 

2175 DEC DE iPoint to FCB 

"So far so good. This, of course, means that you can now 
close the file without fear. Get rid of the warning about closing 
the file dines 2360 and 2370)» and instead, make line 2360 read: 

2360 CALL 4428H {DOS CLOSE routine 

which will, of course, close the file. Viola! One more kludge 
bites the dust! You might want to keep bit 6 of relative byte 1 of 
the FCB in mind when developing future applications that have 
occasion to write to someplace in the middle of the file." 

Shortly after receiving Paul's letter, I had a chance to speak 
with him by phone, and he more or less acknowledged that users of 
the SETDATE/CMD program would probably not experience any 
difficulty with the code as written as long as it was used with any 
of the more intelligent DOSes (DOSPLUS, MULTIDOS, NEWDOS/80 
et al,). However, the Model I version of TRSDOS (version 2.3 and 
earlier) had a definite problem in that under certain 
circumstances, if you OPENed a file, then did not properly CLOSE 
it and then EILLed it, you could write garbage all over the 
directory! I do not know if this could happen with SETDATE/CMD 
running under TRSDOS 2.3, but I wouldn't want to find out the 
hard way, If anyone is currently using SETDATE/CMD with 
TRSDOS 2.3, you might want to write in and let us know if you've 
had any problems. 

One final comment on SETDATE/CMDl Dexter Walker wrote 
in to tell me that the patch that I published to disable the DATE 
and TIME prompts in TRSDOS 1.3 didn't work properly for him. He 
then tried Bob Snapp's DOSFIX05 patch, which DID work. So, if 
you tried the patch I published and had problems, try Bob Snapp's 
patch and see if that works. Here's the patch: 

PATCH *0 <ADD-4EB8,FMD«213B51,CHG»C3394F) 

That concludes the comments about SETDATE/CMD, but 
there was another bug in that same issue of NORTHERN BYTES, 
and Paul Snively gets the eagle-eye award - he found it! His 
letter continues as follows! 

"While I'm here, let me point out a slight misunderstanding 
in Northern Bytes Volume 5 number 2. The 'Model III TRSDOS 1.3 
bug' that was downloaded from CompuServe and written by Morris 
'Mojo' Jones is in error. The fact that TRSDOS 1.3 takes the LRL 
from the directory entry on an open instead of from the B register 
is NOT A BUG! It is a feature of TRSDOS 1.3 that was stolen 
from guess who? Vern Hester! Yup, MtJLTIDOS has that same 
'bug.' Why? That's a tricky one. It basically has to do with the 
occasional oddball who writes a program which actually uses the 



LRL. A good case in point is SuperScripsit. If you look at the 

Model III version of SuperScripsit (which is, of course, 
distributed on TRSDOS 1.3) you will find that the directory entry 
for ERRORS/CTL (the error message file) has a LRL of 40H. Let's 
see, 40H... Why, that's 64 in decimal! Hmmm... Why the weird 
LRL? You guessed it - error messages in SuperScripsit are ^~~\ 
characters long, Why do the error messages this way, though? 

"Well, it's so 'they' (whoever wrote SuperScripsit) could crai.. 
four (256 / 64) error messages into a single disk sector and let 
the DOS (with its LRL capabilities) figure out which record needed 
to be accessed in order to retrieve a particular error message. In 
other words, with proper use of the LRL byte, you can let the DOS 
wor y about how to use disk space most efficiently. Got that? 
Good. 

"Now look at the Model I version of SuperScripsit. Notice 
that the LRL for ERRORS/CTL is 0, which means 256! Yup, Model 
I SuperScripsit uses the LRL to figure out which error message to 
yank, BUT IT PASSES THE LRL TO THE OPEN ROUTINE VIA THE 
B REGISTER 1 

"You knew that, right? Most DOSes use the B register to 
pass the LRL to the OPEN vector. However, TRSDOS 1.3 gets it 
from the directory entry. SO DOES MULTIDOS! (And MULTIDOS 
did it first!!) That's why Vern has published a zap to the 
directory entry of ERRORS/CTL on the Model I so that the error 
messages returned by SuperScripsit running under MULTTOOS on 
the Model I are the right length! In other words, MULTIDOS and 
TRSDOS 1.3 handle the LRL the same way, and it's not a bug, it's 
a means of getting the LRL right... 'right,' in this case, meaning 
making it the same as it was when the file was written. 
Understand? Good. If you have any questions about this very 
important difference between those two DOSes QfULTIDOS and 
TRSDOS 1.3) and the rest of the world, ask me (Paul Snively, 
Ashton-Hershey 12, Indiana University, Bloomington, Indiana 
47405 - telephone (812) 337-1570), or better yet, ask Vern. After 
all, it was his idea." 

Moving up to the last issue of NORTHERN BYTES (volume 5 
number 3), Nathan W. Harrington had a few comments about 
creating your own NEWDOS/80 /SYS overlays that weren't 
covered in the article. Nathan offers these comments. 

"First of all, about the byte you load into the A register. I*— ^ 
is actually 3 individual numbers, not 2 as you mentioned. The by 
is divided as UUU BB SSS. SSS + 2 ■ the relative sector in th*. 
directory containing the (F)ile (D)irectoy (E)ntry (FDE). 
BB • 32 (20H) = the offset in the sector to the FDE. UUU - a user 
defined code greater than zero. 

"As you know, the standard directory has ten sectors 
(numbered 0-9) CNEWDOS/80 users have the option of specifying 
an enlarged directory by specifying a FDRIVE DDGA parameter of 
greater than two, which will expand the number of disk sectors 
allocated to the directory, but the additional sectors are not used 
for /SYS overlay filenames. Therefore, we need only concern 
ourselves with sectors 0-9, regardless of the actual size of the 
directory -edl. The first sector, sector 0, is reserved for the 
(G)ranule (A)llocation (T)able (GAT) and some system information 
such as diskette name, password, date, and the AUTO command 
used at boot up. Sector 1 is reserved entirely for the (H)ash 
(Dndex (T)able (HIT). This leaves eight sectors (sectors 2-9) for 
directory entries (FDE's). Each sector has 256 bytes which are 
divided into eight 32-byte FDE's. 8 # 8 - 64 less one for 
BOOT/SYS and one for DIR/SYS, leaves the 62 FDE's you see in a 
directory of a formatted tdatal diskette containing no other files 
[assuming that the FDRIVE DDGA was set to the standard value 
of two when the diskette was formatted -edl. 

"All SYSTEM files (BASIC/CMD is pot a SYSTEM file) must 
reside in the first four FDE's of each of the eight remaining 
directory sectors. These include BOOT/SYS and DIR/SYS. 8 
sectors » 4 FDE's/sertor for SYSTEM use » 32 FDE's for SYSTEM 
use - SYS0/SYS through SYS29/SYS (30 files), BOOT/SYS, and 
DIR/SYS = 32. 

"These are organized in a very orderly fashion. Assume that 
the SYSTEM files are in one big list starting with BOOT/SYS and 
DIR/SYS, followed by SYS0/SYS - SYS29/SYS in numeric order. 
Then, you start filling the directory sectors as follows. The 
FDE's will be referenced by their first byte (the relative byte >e- N 
the sector), i.e. they are numbered 00, 20, 40, 60, 80, CO, and T 
Note that these are HEXADECIMAL numbers and that 20H = 31. 
which is how many bytes there are per FDE. 

"First, you will take the file names directly from the list — 
IN ORDER. Fill all FDE's numbered 00 in each of the eight 
sectors tthe eight sectors numbered 2-9, and don't forget that 



BOOT/SYS and DIR/SYS go into the first two slots, followed by 
SYSO/SYS, SYS1/BYS, SYS2/SYS and so on... -edl. Then, go back 
to sector 2 and begin filling the FDE's numbered 20. Continue 
this method until all files are in the directory. If you would 
include SYS22/SYS - SYS29/SYS, you would end up in sector 9 at 
FDE 60, This brings us to the BB portion of the byte loaded into 
the A register. BB * 32 is the relative byte within the directory 
sector of the beginning of the FDE associated with the overlay. 
Since BB is only two bits, the possible values are 00, 01, 10, 11 
(binary) which gives (corresponds to] 00, 20, 40, and 60 
HEXADECIMAL. Therefore, all SYSTEM files must also reside in 
the directory in one of the first four FDE's of each sector. 

"The SSS portion of the byte is, as you stated, the number of 
the directory sector plus two. 

"The OTTO" portion of the byte is a user defined code. In the 
case of the current SYSTEM files (SYS0/SYS - SYS21/SYS), it is a 
NEWDOS/80 defined code, This code can make it possible to have 
more than one routine in the overlay, By setting various 
combinations of bits, you can arrive at seven different codes, 000 
is not used (nor available for use) so you can have 001, 010, 011, 
100, 101, 110, and 111 (binary). It should be noted also that 
NEWDOS/80 uses the C register in many cases to obtain an even 
greater number of routines. By loading A and C, it is 
theoretically possible to have 7 (in A) * 256 (in C) = 1792 different 
routines, 

"As an example, 3FH would be 001 11 111 which would be 
routine number 1, sector 9, offset 60H (3 * 20H). If the format is 
followed correctly, this would be SYS29/SYS. 

"You may call other DOS routines in this manner also, I 
have started a list of the values needed to do this, but it is 
incomplete. The B register is also used for some purpose which is 
as yet unclear to me. If you look in SYS1/SYS, you will find all 
the commands, each followed by three bytes. These bytes, or part 
of them (a portion of each byte, that is), are loaded into the A, B, 
and C registers. The overlay then decodes this value and runs the 
appropriate routine. 

"You might also mention that people should start with 
SYS29/SYS and work down toward SYS21/SYS as Apparat has said 
that if they make any additions, they will start with SYS22/SYS. 

"I hope this information is of use to you in making the 
procedure more clear. I might also refer you to the NEWDOS/80 
manual chapter five about the directory, and the last page of 
chapter twelve." 

Thanks to Nathan for the additional information. I knew 
about the UUU BB SSS format but chose to express it differently 
in order to (hopefully) make it a bit easier for the average reader 
to understand. I suspect that most readers will understand the 
above concepts more easily if they actually look at the directory 
of a NEWDOS/80 system disk (using SUPERZAF), and note the 
pattern of the /SYS overlay filenames as they are stored in the 
directory. 

If you missed the original article but have fallowed the 
above discussion so far, you might be interested to know that 
once the A register is properly loaded, you simply execute an 
RST 28H instruction to call the overlay (the /SYS overlay filename 
must be in the correct directory slot!). The contents of the A and 
C registers are preserved (as Nathan mentioned above), so these 
can be tested by the initial code of the overlay to determine which 
part of the overlay is to actually be executed, 

TRS-80 BOM ROUTINES DOCUMENTED BUG - As you may be 
aware, I have been documenting the bugs that have appeared in 
"TRS-80 ROM Routines Documented", so that those of you with 
early editions of the book can make corrections. As mentioned 
earlier, the routine at 002BH (documented on page 12) does NOT 
necessarily set the Z flag when the A register contains zero 
(indicating no key pressed), contrary to what the book says. In 
addition, there's a simple typo to report! Near the top of page 49 
it says, "PROGRAMMING HINTS As with the previous routine (at 
28B7H),.." Trouble is, the "previous routine" was actually at 
285.7H. This also throws off the "Hexadecimal Address 
Cross-Reference" on page 124 - delete the reference to 28B7 
there, and add page 49 to the reference to 2857, If you purchased 
your copy of the book recently, these corrections may have 
already been made. If you have an older copy, and have made the 
above correction plus the corrections that have appeared in 
previous issues of Northern Bytes, your copy of "TRS-80 ROM 
Routines Documented" should be up to date! 

The 002BH bug was discovered by Michael Davis, and Paul 
Snively found the typo (I'm thinking about appointing Paul as 



official proofreader!), Paul also notes that on page 48, I 
document the routine at 28BFH with the notation that it will 
"make room for a string in the string storage area if possible 
(will go to an Out of String space Error if not possible)," Paul 
thinks that I probably should have pointed out that this is 
Microsoft's infamous "garbage collection" routine that has 
plagued so many users, even though it's fairly obvious from the 
above description. So, in case you didn't catch the implication of 
this routine the first time, you now know where all the garbage is 
collected! 

TRS-80 TIDBITS, TRASH, TREASURE, AND TRIVIA by John 
Hallgren, 1939 Atlantis Drive, Clearwater, Florida 33513 
(telephone (813) 797-3123 8-11 P.M. Eastern Tim* and weekends). 
This article is excerpted from John's series in ELSE. 

[The following item is from the November/December 1983 
issue of ELSE?] 

« This item should have appeared about two years ago when 
the Model HI was fairly new, but the conditions which caused me 
to develop this patch only occured last week. What do you do if 
you're at a remote site, trying to move a file from a Model I 
single density disk to a Model HI T RSDOS 1.3 disk, and the file 
you need is the last one that the CONVERT program is processing 
and you get a DISK SPACE FULL error? And to compound the 
problem, you don't have any blank ones with you and nobody else 
will let you barrow one? Well, I just gave up, went home and 
started taking apart the CONVERT program from TRSDOS to see 
if another query prompt could be added. 

I wanted it to display the next filename to be converted and 
prompt for a Yes/Mo/Quit response. The program already had the 
code to display the prompt (Y/N/Q) and process the response when 
the filename already exists on the destination disk, so all I had 
to do was to interface to that routine and in the smallest number 
of bytes. Before these patches can be done, the patch to disable 
password checking must have been applied. For those who missed 
it the first two times! 

PATCH «2 (ADD»4ED4,FIND-20,CHG-18) 

Now that we have made sure we can modify any file, here's the 
patches! 

PATCH CONVERT/CMD (ADD-320A,FIND»06,CHG«IC> 
PATCH CONVERT/CMD (ADD=5511,FIHD-21955B f CHG-CD065A) 
PATCH CONVERT/CMD (ADD-5536,FIND-ED53»CHG-135A) 
PATCH CONVERT/CMD 

(ADD=»5A06 .FIND-4D6F64656C20.CHG-3E86CD153A21 ) 
PATCH CONVERT/CMD 

(ADD-3A0C,FrHD*3120746F204D,CHG«953BC0ElC39E) 
PATCH CONVERT/CMD 

(ADMA12,FI1U>^64696C2033,CHG-S33E7032F153) 
PATCH CONVERT/CMD 

(ADDK5A18JTNT>20436F6E7665^HGK:DED53C9436F) 
PATCH CONVERT/CMD 

(ADD«3A1E,FIND-7273696F6E£HG-6E76637274) 

I don't know what's worse, coding and testing the changes or 
converting them to TRSDOS patch format! As always, I hope this 
might be of use to somebody. How, what else can I do to 
TRSDOS?? 

CThe following items are from the July/August 1983 issue of 
ELSEil 

0. — Warning ! This article will deal only with the Model I 
Radio Shack Double-Density kit. If you're not interested, go on 
to the next article please. Anybody still here? Well, I guess it's 
just you and me kid. As I stated in the last article, one of the 
reasons I bought the R/S doubler was to hopefully assist other 
owners who may have less technical software knowledge. I have 
determined how most of TRSDOS 2.7DD worts, and it's basically 
the Model in TRSDOS 1.3 with some enhancements, a few bugs 
and the usual minor quirks. Now for the details. 

1. — My R/S Shugart disk drive works Jus* «•»• (in a 33 
track, 40 ms mode) with the doubler. Some people told ms that it 
would have difficulty formatting, writing and reading in 
double-density. Not so far, but maybe it just likes ms. 

2. — NEWDOS/80 version 1.0 will MOT run unless some 
patches are applied, Yes, I realize that version 2.0 is the current 
version, but some of us still have a few things on ltO disks. 
About a week after installation, I needed a program on one of 
these disks. Having forgotten the experiences of another dub 



member, I tried to boot the diskt After the usual rapid 
back~and-forth stepping of the head, it went into "silent death" 
mode. I tried it a couple of more times just to be sure. Same 
results. Then I remembered that this was the same problem that 
caused the other club member to switch to an Aerocomp doubler, 
I'd rather fight that switch, so after a few hours of disassembly 
and tracing the DOS as it booted, I found the problem - it was 
getting switched into double-density mode! No wonder it got lost! 
A quick one byte patch, and it booted! Next a similar patch for 
the FORMAT routine was developed and now it works just like it 
used to (single density mode only, of course) as far as I can 
determine. So here's the patches: 



SYS0/SYS,4,53 
STSO/SYS, 11,70 



change 80 to 00. 
change 80 to 00. 



(Trk 0/sec 9) 
(trk20/secl) 



The 80H was being loaded into the sector register, which normally 
won't affect anything, but the R/S doubler uses that to switch to 
double density mode. A Percom doubler uses the command/status 
register to switch modes. 

3. — TRSDOS 2.8.00 finally arrives 6 months later! Back in 
December, in the "Motes, etc." column in 80-TJ.5., the problem with 
a single drive copy from single to double density was discussed. 
It was stated that version 2.8 would be available shortly, and new 
kits would come with it. BULL! I started checking with my local 
center, and calling Ft. Worth at least monthly. I wanted the most 
current DOS when I bought my kit, Nobody was aware of 2.8 
locally, and Ft, Worth kept saying "another month". They didn't 
even acknowledge its existence until February. Finally, about a 
month ago, the local CSR made contact with somebody who knew 
about it, They said it had been available for a couple of months! 
When I got it, the date on the boot banner (looks like 1.3 with the 
computer picture) was DEC. IS, 1982! And 80-U.S. calls that 
■quick, excellent response". If that's quick, I'd hate to see slow!! 
By the way, you have to trade in your 2.7DD original to get the 
2.8.00 version. End-of-editorial. 

4. — The following patches are by Tom Price via 
CompuServe, and are dated 1/24/82. There were five, but one was 
done in 2,8 so it is obsolete. 

(1) These patches correct two errors in the PATCH command 
itself and this one MUST be applied first to allow proper 
operation of PATCH when patching 2.7DD system files. 

PATCH #9 (R=6.,B«233,F»07,C*00) 
PATCH »9 <R=<>,B«242,F-13,C«12> 

(2) These patches correct a memory conflict between two of 
the system overlays during certain file I/O sequences, In 
addition, the 4430H call to the program loader was not preserving 
the IX register and this is also corrected. 

PATCH »I7 <R*1,B-4,F«321F43,C=C33431) 

PATCH «17 (R=2,B-52,F"£5E5E5E5E5,C=321F45DDE5) 

PATCH #17 <R=2,B-57,F«E5E5E5E5E3,C=CD0750DDE1> 

PATCH *17 

<R=2,B»62,F«E5E3E5E5E5E5E5E5,C=F53E1 1 32 1 F45F 1C9) 

(3) These patches correct a problem with the tRAMDIR call 
which was causing the system to hang when retrieving single 
directory entries if the accessed directory slot was empty, 

PATCH *14 (R*1,B»242,F*C0CB76,C-=C3E54F) 
PATCH *14 

(R*2,B-229,F=E5E5E5E5E5E3E3E5E5,C=C07EE6F0FE 1 0C3F54E) 

(5) This OPTIONAL patch removes the restriction in DEBUG 
which prevents accessing of any memory below 5400H. 

PATCH *5 <R*1,B=207,F=54,C=00) 

My research on these patches indicates that the problems Tom 
found do exist and that these patches fix them. Too bad Radio 
Shack didn't fix 'em but then we wouldn't have any fun finding the 
solutions ourselves. 

5. — As you saw in Tom's patches, the syntax of the PATCH 
operands is different for TRSDOS 2.7DD and 2,8. This is because 
all but one (the root - SYS0) of the 24 (That's right, 24!) overlays 
are in CIM format. There are no codes indicating where to load 
the code/data. It is simply read sector by sector into memory. 
This makes adding patches to the end possible with the PATCH 



command, because there is no "0202xxxx" transfer address loader 
code that prevents it. The overlays also load quicker, since the 
data is not buffered and processed byte-by-byte when loaded to 
the final location. Also, I developed variations of some existing 
patches from the Model III to do things my way. Here they are: 

(a) Display error message text instead of number. 
PATCH »4 <R=1,B=49,F=20,C=18) 

PATCH *4 <H=1,B=63,F=20,C=18> 

(b) Disable all password checking. 
PATCH #2 (R=1,B=202,F=20,C=18) 

[The following items are from the September/October 1983 
issue Of ELSE!] 

1, — Let's begin with a couple of loose bits. First, 
sometime in November or December I expect the sales of the 
standard Model 4 to slow considerably. Why? The answer is on 
page 2 of the new R/S RSC-10 catalog. It's the new Model 4P, 
with the "P" indicating portable! That's right, now even R/S has 
an Osborne/Kaypro clone, At $1799 for a 64K, 2 double-density 5 
1/4" drives, 9 inch screen system, it will probably become the 
more popular version of the Mod 4. And with the 4 supporting 
that other DOS (CP/M) in addition to a real DOS (TRSDOS/LDOS 
6.0), why would anybody want an Apple? Speaking of which, do you 
find the LISA commercial as odd as I do? I always thought that 
Altair was the first personal computer. And then the line about 
how everyone tried to make a better Apple. Most companies did a 
long time ago. My response to "have a computer or an Apple?" is 
"eat an apple while using a REAL computer". As you can tell, even 
with their faults, I'm a Tandy fan. Enuf said. 

Second, when using a DOS without file date stamping 
(TRSDOS 2.3), I often use the "/EXT" to hold the month and day 
portions of the date. As you know, the first character of the 
extension must be alphabetic. By the way, 2.3 doesn't give any 
error if it isn't, it just ignores the bad extension! Therefore, by 
using a sequential letter to represent the month (A * Jan, B * 
Feb, C ■ Mar, etc.) followed by the day, the syntax requirements 
are met. A file created on 10/03/83 would use "J03" for example. 
Simple, but practical. 

2. — Now for the important stuff. As mentioned in my last 
column, I developed an extensive set of patches to TRSDOS 
2.7/2.8 to allow a DIR of a non-system disk in drive 0. The 2.8 
DOS allows you to copy from a 2.3 type disk to a 2.8 disk, but how 
do you find out what's on the 2.3 disk without rebooting in single 
density mode? The DIR command can detect and process a 2.3 type 
disk on drives 1, 2 or 3, but doesn't give you a chance to swap 
disks on drive 0. My patches allow you to specify a new 
parameter ("X") which displays disk mount messages as needed. 
If the DIR is aborted by use of the (BREAK) key or an error, a 
prompt for the system disk is issued. This code has been 
optimized as best as I can, and due to the size of the patch, I used 
the EDTASM program to make it easier. For those of you who are 
interested in assembler, here is the source code for the patches! 



Hill 
Mill 
••121 
11131 
Mill 
11151 
HIM 
11171 
HIM 
••191 
II2II 
11211 
11221 
11231 
10241 
11251 
11261 
11271 
11281 
11291 
II3II 
•1311 
1132) 
11331 
11341 



PATCH TO TRSDOS 2.7DD (HERAT 121 (DTK) 
i IT ALLOHS A DIR OF A WWYSTEH DISK IN DRIVE I i 
I BT USING THE (X) PARAMETER, SDflUR TO IMS 5.1.3 I 
i HOWEVER, DISK HDUNT MESSAGES DO HOT FLASH. • 
I THIS CODE IS FOR REFERENCE ONLY, SINCE THE PATCH * 
i CONWO IS USED TO DETAIL THE CODE TO 121". * 
l HOTTEN BY JOHN C HALLGREN 15/14/83 813-797-5125 1 
i OPTIMIZED ON 17/24/83 - COM PATIBLE WITH 2.8.11 « 

..i.mni ■■" »■" 



53* 

538ECD6I58 

5B53 

5853 58 

S859 
5859 42 

4167 
5861 
5861 C5 
5861 llllll 
5862 

5864 7A 

5865 B3 



ORG 
CALL 

ORG 
DEF8 

ORG 
DEFB 

VDLDCEOU 
ORG 

XPARH PUSH 
LD 

XFLAE ECU 
LD 
OR 



53KH 
XPARH 

5853H 
'X' 



i A 'LD H.,4211' DBTR IS USED 
} AS A HDOK TO THE PAW (X) RTN 

! ADDR OF 7TH ENTRY IN TABLE 
} CHANGE "A" TO "X" 



5859H } AOOR OF PAW STORAGE AREA 
XFLAG4255 ', POINT TO OPERAND OF ID DE," 



4467H 
586tH 
BC 
DE,t-* 

«-2 
A,D 
E 



} DISPLAY A UNE ON VIDEO 

; END OF TANDY CODE + 1 BYTE 

{ SAVE DRIVE • IN C 

\ LOAD RESULT OF PARSER IN DE 

! USE OPERAND OF LD DBTR 

[ TEST RESULT OF PARSER 

? III! = NO, FFFF * YES 



5844 2825 


11351 


JA 


Z,XEm 


! 'X' PARK NOT SPECIFED, SO Em 


5848 217833 


11361 


LD 


HL.XNO 


; LOAD AMR OF NORMAL EOT 


SB4B22C354 


•8371 


LD 


(5«3H),HL ', INTO 'JP 5225' DGTR 


5B4E21A55B 


11381 


IB 


HL.XEEX 


( LOAD ADDR OF ERROR EXIT 


5871 221652 


11371 


LD 


(52NH)»H. { INTO 'JP MI7' DBTR 


5B74 21AD5B 


IMII 


LD 


HL.XAEX 


; LOAD ADDR OF ABORT EOT 


5877 22V52 


IMII 


LD 


<52»h>,h ; into the three 'jp NZ.itar 


567A22AA52 


IM2I 


LD 


(S2AAH),HL 5 DBTR. USED ONLY HHEN 


587D22BI53 


IM3I 


LD 


<53MH),H J <BRK> IS ENTERED TO ABORT. 


5881 GD92S8 


IMH 


CALL 


XDSPDI 


; DSPLT "INSERT" ON VIDEO 


5883 2ED4 


IM5I 


LD 


L,XLSRCE«255 { POINT TO "SOURCE" 


5885CD4741 


IMM 


CALL 


VGUNE 


! DISPLAY ON VIDEO 


5888 2EC2 


IM7I 


LD 


L»XLDISKI255 ! POINT TO "DISK..." 


5B8ACD7F5B 


1MB! 


CALL 


XDSPHT 


S DSPLY HSG 1 HAIT FOR <CR> 


588D21IM2 


MWXEXn 


LD 


HL,ttlft 


1 { DO OVERLAID DBTR 


5871 CI 


II5M 


FOP 


8C 


! RESTORE DRIVE t 


5871 C7 


usti 

11521 


RET 




! CONTINUE KITH TANDY CODE 


5872 21B358 


IBM XDSPW ID 


M..XLINE 


i ; POINT TO "INSERT* I 


5B95C347M 


M51I 
•1531 > 


JP 


VDLDC 


i EXIT THRU DSPLY HSG ON VIDEO 


5878 CB2552 


H54U0EX 


CALL 


5Z25H 


i DO OVERLAID DBTR FIRST 


587B CD7258 


M57IXNI1 


CALL 


XDSPDI 


; DSPLY "INSERT", THEN 


5B7E 23 


II5BI 


DC 


HL 


! POINT TO "SYSTEH DISK...* 


5B7FCD47M 


11571 XDSPHT CALL 


VDLDE 


( DISPLAY ON VIDEO 


5BA2C35C52 


IMII 
11411 { 


J> 


5ZSGH 


J EOT THRU MWT FOR <CR> 


58A5F5 


M42IXEEX 


PUSH 


AF 


J SAVE ERROR NUMBER 


5BA4C09B5B 


11431 


CALL 


XM1 


\ DSPLY "DGRT SYS" t HAH 


5SA9F1 


11641 


POP 


AF 


! RELOAD ERROR NUMBER 


5BAAC3trU 


IM5I 
11441 ; 


JP 


MI7H 


t EOT THRU fERRDSP 


58M)CD7B58 


M47IXAEX 


CALL 


XMl 


( DSPLY TNSRT SYS" I HUT 


5BBIC33MI 


11481 
11471 ', 


JP 


vm 


I EXn TO tOOSABRT 


5BB3 10 


M7H xuhb 


DEFB 


10H 


; BACK TO LEFT SIDE 


58B4 17 


11711 


DEFN 


'Dwert 


* 


58BB 13 


11721 


DEFB 


I3H 


! <ETX> 


5BBC 53 


11731 XLSV8 


DEFN 


'SYSTEH' 




58C2 2I 


11711 XLOISK OEFH 


' Diskette <ENTER>' 


5BD3M) 


11751 


DEFB 


MM 




580153 


11741 XLSRCE DEFN 


SOURCE' 


1 


5BDAI3 


11771 

M78I ; 


DEFB 


t3H 




1)11 


11771 


EW 






MIDI TOTAL ERRORS 








31113 TEXT AREA BYTES LEFT 






VDLOE H47 II2W IMM M5H (1971 


XLDISK 58C2 11748 IM7I 


XAEX S8AD 11471 IMII 






XLD6 SBB3 II7II 11538 


XDSPDI 5872 11331 IMW 11371 




XLSRCE 5BM 11741 IM5I 


XDSPffT 587F 11571 IMM 






XLSYS 5BBC 11731 


XEEX 38A5 IM2I II3M 






XMl 5B7B 11571 •8638 IM7I 


XEXTT 5880 IM7I II358 






XNEX 5878 11561 11341 


XFLAS 5842 11321 11241 






XPARH 5841 II3II IIZII 



How that you know what the code looks like, let's translate 
it into patch format. Put these patches into a DO file so you can 
copy them to other disks. For increased readability, I've added a 
space between each byte in the Find and Change strings. DO NOT 
enter these when you key in the patch!!! For example, "21 00 42" 
MUST be entered as "210042" (without quotes of course). 

In case you missed our last issue, there were two patches 
from Tom Price to fii a problem in the PATCH command. Th* 
problem still exists in 2.8.00 and my patches cannot be applied 
until it is corrected. So here they are again! 

PATCH *9 (R-6,B-235,F=07,C=00> 
PATCH *9 (R=6,B=242,F=13,C-12> 

I would suggest that you put these two patches first in the 
DO file, and if they have been done already, they will be bypassed 
with a "String NOT found" error. Also, remember that if you make 
a mistake while BUILDing the DO file, it is relatively simple to 
correct by using the FILFIX utility on the completed file. 
However, you will have to enter the changes in hex, but that's no 
problem for a computer genius like you» right?? And if you enter 
some trailing blanks after the closing ")", you have room to. add 
the character or two that were missed. 

Let's take a closer look at how this DIR (X) modification 
works. In order to write it, I had to determine exactly how the 



current code worked and what parts of the existing code could be 
used so that the patches would take the least number of bytes. 
The overlay which processes the DIR command contains about 700 
lines of code and is number 21 of 23 overlays. The best place I 
found to intercept processing was at 530EH, where HL is loaded 
with address of the I/O buffer for the reading of the boot sector. 
This instruction is overlaid in lines 190-200 with the CALL to my 
routine, and is then done in line 490 before returning to the 
original code. Since the prompt messages are not needed 
everytime a DIR is done, a yes/no type switch had to be 
incorporated. 

One of the routines used in the DOS is a command parser, or 
scanner. This parser normally uses a table containing the 
keywords to be searched for, and a storage area to hold the coded 
argument value. In this case, there was an entry for the keyword 
"A", which was used in TRSDOS 2.3 to display the attributes for 
the files, but since that type of display is standard in 2.7, its 
only function was to prevent an error if it was accidentally used. 
He can use that entry for the new "X* keyword instead, so in lines 
220-260 I establish the keyword value and the storage area 
instruction. This was done to avoid setting up a separate 2 byte 
storage area. As listed in the comments, lines 310-350 test the 
coded value to determine if the routine should be executed or 
bypassed. If "X" was specified, I then need to establish 
intercepts at the standard exit issued. This is done in lines 
360-430. 

The rest of the routine is fairly straightforward. What is 
different is that in lines 450 and 470, 1 only load the L register. 
The value in H remains constant, so why reload it? I use the "&" 
(AND) operator to trim the address to the low order byte. Also, 
nets that I use the J? instruction to exit a CALLed subroutine. 
What actually happens is that the last instruction of the routine I 
jump to is a RETurn. This avoids doing another CALL/RET 
sequence. To further optimize the code, I broke the literals into 
pieces to aveid redundancy. The longer the literals, the better 
this works. Hope that this will be of some benefit to somebody. 

PATCH #21 (A«2,B-014,F«21 00 42.C-CD 40 SB) 
PATCH #21 

(A=7,B-083,F=41 20 20 20 20 20 5C, C-C5 1 1 00 00 7A B3 28 25) 
PATCH *21 

<A=7,B-096,F-E5 E5 ES ES ES E5 E5 E5, C-C5 11 00 00 7A B3 28 25) 
PATCH *21 

(A«7,B-104,F-E5 E5 E5 E5 ES E5 E5 E5, C-21 98 58 22 C3 54 21 A5) 
PATCH #21 

(A-7.B-1 12,F«E5 E5 E5 E5 ES E5 ES E5, C-58 22 OB 52 21 AD 58 22) 
PATCH «2t 

(A-7,B-120,F-E3 E5 E5 E5 E5 E5 E5 E5, C*4B 52 22 AA 52 22 BO 53) 
PATCH »21 

(A-7,B=128,F«E5 E5 E5 E5 E5 E5 E5 E5, C-CD 92 58 2E D4 CD 67 44) 
PATCH *21 

(A-7,B-136,F-E3 E5 E5 E5 E5 E5 E5 E3, C-2E C2 CD 9F 58 21 00 42) 
PATCH #21 

(A-7,B»144,F-E5 E5 E5 E5 E5 E5 E5 E3, C-Cl C9 21 B3 58 C3 67 44) 
PATCH *21 

(A-7,B-152,F-E5 E5 E5 E5 E3 E5 E5 ES, C-CD 25 52 CD 92 58 23 CD) 
PATCH #21 

<A-7,B»140.F-£5 E5 E3 E5 E5 E5 E5 E5, C=67 44 C3 5C 52 F5 CD 9B) 
PATCH #21 

(A=7,B-168,F«E5 E5 E5 E5 E5 E5 E5 E5, C-58 Fl C3 09 44 CD 9B 58) 
PATCH *21 

(A=7,B-176,F»E5 E5 E5 E5 E5 E5 E5 E5, C-C3 30 40 ID 49 6E 73 65) 
PATCH #21 

(A=7,B»184,F=E5 E5 E5 E5 E5 E5 E3 E5, C-72 74 20 03 53 59 53 54) 
PATCH »21 

(A-7,B=(92,F*E5 E5 E5 E5 E5 E5 E5 E5, CMS 4D 20 44 69 73 6B 65) 
PATCH *21 

(A=7,B*200,F=E5 ES ES ES E5 E5 E5 E5, C-74 74 45 20 3C 45 4E 54) 
PATCH »21 

(A-7,B»208,F»E5 E5 E5 ES E5 E5 E5 E5, C-45 52 3E OD 53 4F 55 52) 
PATCH «21 (A=7,B-216,F»E5 E5 E5,C=43 45 03) 

(NOTE! Remember to remove all spaces when performing the patch! 
they are here only for improved readability.) 

KBE PROGRAM ZAP by Tony Domigan - This will correct 
DVRIII64/CMD (from TAS KBE package) so that it will work on 
the model 4! 

Location FF4EH the instruction C30031 JP 3100H 

Should be C3FC33 JP 33FCH 



A NEW OVERLAY MOflyjJi.FQIlJElDOS/80 VERSIONS 

JKL Routine with TRS-80 Graphic Blocks 

for the EPSON RX80 / FX80 Printers 

by Joachim Kelterbaum 
(Frankenstr. 305, 4300 Essen 1. West Germany) 

Many NEWDOS/80 users find it quite convenient to be able 
to get a screen dump to printer just by pressing the J-K-L keysi 
However, since the TRS-80 uses graphic blocks that are not 
usually included in the character generators of printers, it is not 
possible to make full use of this facility. Some printers! though, 
are able to do dot image graphics, and this provides a means to 
simulate the TRS-80 graphic blocks. In the following article, a 
way will be shown to implement this facility on NEWDOS/80 
version 2 for the Epson RX80 / FX80 / MX80 III printers. 

The first part of this article will deal with some general 
aspects of the function of the DOS overlay loader, In the second 
part 111 explain the JKL module itself. Part three will deal with 
a method of incorporating a self-written overlay into the system. 

Function of the Overlay Loader 

Certainly you know that NEWDOS/80 is a sophisticated 
operating system. Such degree of sophistication would by no 
means be possible if all of the system's functions were located in 
RAM at all times (you could do that, but there would be very little 
room left for user programs). The solution to this problem is the 
overlay technique. This is accomplished in the following manner. 

There is only one part of the system (STSO/STS) permanently 
resident while NEWDOS/80 operates. In addition, there are 
approximately 20 overlay modules (STS1/STS to SYS21/SYS), of 
which only one is resident at a time. There are 2 overlay areas 
(the DOS overlay area at 4D00H-51FFH, and the secondary 
overlay area - used mostly by BASIC - at 5200H-MTFH). 

Each time a certain overlay is needed by the system, the DOS 
overlay loader - part of STSO/STS - will load this module to the 
overlay area (if that module is not loaded already). The module 
used before will simply be 'overlayed'. I suppose that you can 
well Imagine that this particular function of the DOS is of vital 
importance to the system. This might be the reason why the 
function of the overlay loader is hardly documented in the manual. 
Obviously, the authors of NEWDOS/80 - as well as of the other 
systems - do not want us to fool around with the system. 

On the other hand, this overlay area is an ideal place to put 
programs which do not use up any room in the user RAM and which 
are practically invisible to the system. But how can one make use 
of this area? 

The answer to this is surprisingly simple. There are only 2 
instructions needed! LD A,<code> } RST 28H. <code> is a 1-byte 
constant which must meet the following conditions! 

At least one of the high order three bits (bits 7, 6, or 5) 
must be set. The low order five bits (bits 4 through 0) tell the 
system where in the directory the needed module is located. 

To make it easier to understand the following, you should 
turn on your computer and use the DFS (Display File Sectors) 
option of SUFERZAP to display File Relative Sector (FRS) of 
DIR/STS. Normally (depending on your particular PDRIVE 
setting) this is disk sector 170 on a single-sided, single-density 
40 track disk. 

FRS is the OAT sector telling the system which tracks are 
formatted and which ones *rm already allocated to files. It. also 
contains the disk name, date, and the AUTO command (if used). 
FRS 1 is the HIT sector. This is used by the system as a hash 
table for quickly finding a certain file on this disk. Starting from 
FRS 2 the directory entries begin. In the relative position (top 
row) you always find BOOT/SYS. If you turn to FRS 3 you will 
find DEI/SYS in the top row having relative position 1. The top 
row of FRS 4 will show the file SYS0/SYS (relative position 2) and 
so on. Once you have reached FRS 9 of the DIR/SYS file (relative 
position 7 - in the case of a disk that was formatted using the 
standard PDRIVE parameter of DDGA-2, this is the end of the 
DIR/SYS file)t you can start over with FRS 2, Now you count the 
entries in the second row, starting with relative position 8 
(SYS6/SYS will be found there). Exactly these position numbers 
are the values you have to use in the constant <code> (low order 5 
bits). As there will only be 5 bits decoded by the overlay loader 
you can only address up to 32 overlay modules this way (actually 
only 30, since BOOT/SYS and DIR/SYS occupy the first two 
positions). Let me give an example of an overlay call! 



If you wanted to call SYS5/SYS (DEBUG), you'd find this 
entry at position 7 in the directory. If you remember to set one 
of the high order three bits (bit 7 In this case), your value for 
code should be 1000 011 IB = 87H. So it is sufficient to execute 
the following instructions for an overlay call to DEBUG! 
LD A,87H ', RST 28H. 

Exactly this method will be used to load our self-written 
JKL module. You will find the details in section three of this 
article. 

I must say a few words on what conditions a /SYS module 
must meet in order to be loaded correctly by the overlay loader! 

The module is a normal machine code routine which has to 
reside in one piece on disk (no additional extents allowed). The 
format of the module is the usual load file format which for 
example is produced by EDTASM. There has to be a start address 
stated in the END statement. This address will be jumped to 
after loading the file via RST 28H. The file need not be 
positioned within the overlay areas (of course, if you choose to 
have it load elsewhere, you must make sure that that area of 
memory is somehow "reserved", so that you overlay module won't 
overwrite another program already in memory). If you end your 
module with a RET instruction, a return will be made to the calling 
routine (i<e. the address on top of the stack), 

If what you have just read encourages" you to experiment, 
please, do so on a backup system!!! It is quite likely that you will 
get some errors in the beginning. These errors will sometimes be 
'honoured' by a destroyed system. So, be careful!!! 

Function of the JKL Module 

You'll find the source code of the JKL module at the end of 
this article. First the printer is initialized, so that the standard 
settings of 10 Characters Per Inch and 12 dots linefeed will be 
used. After thi s the first line of the video RAM i s load ed into 
the two buffers BUFTXT and BUFGRF. The buffer BUFTXT will 
now be modified to contain only printable ASCII codes - i.e. 
graphic codes above 7FH will be replaced by 20H and control codes 
00H-1FH will be shifted up by 40H so they'll appear on the 
printer just like the characters being displayed by the TRS-80 
character generator (the one normally supplied with the Radio 
Shack Model I lowercase modification, which duplicates the 
uppercase character set for ASCII codes O0H-1FH). In the buffer 
BUFGRF all codes below 80H will be replaced by 80H. This way 
we have a separation of text and graphics. 

Now the program functions in the following manner: If a line 
only consisted of text codes, this text will be printed and a 12 dot 
linefeed will be done. If there were graphics, then first those 
graphics will be printed. As it is not possible to do a reverse 
linefeed with the MX80 m, only the upper 2 blocks of that row 
are printed. Then a 1 dot linefeed is done. After this the text is 
printed and a 7 dot linefeed is done. In a third phase the lower 
blocks of the graphics are printed and a 4 dot linefeed is done, 
This makes a full 12 dot high line of mixed graphics and text. 

The whole procedure is repeated for all 16 video lines. 
Finally, the printer is reset to normal again and a return to the 
calling program (usually DOS or BASIC) is done* 

Though this procedure of a JKL-dump sounds quite 
complicated, it works surprisingly fast. 

Hints for Installation of the Module to the NEWDOS/80 System 

After you have typed in the source using EDTASM or a 
similar program, save it as SYSJKL/CMD on a working diskette. 
Now, make a copy of your (naked) system on a different diskette 
(COPY,0,1„FMT,CBF,/SYS or similar). Boot this system. Now you 
have to install a file at a particular position in the directory (see 
section i of this article). We will use position number 1DH « 29 in 
this example. To create a file entry in position 1DH proceed as 
follows! 

(The method described here is not the most elegant one, but 
it's the safest) 

Create several files using the CREATE command 
(CREATE S0!0 J CREATE SI !0 etc.). Now use SUFEHZAF's DFS 
option again to display Dm/SYS. Find the entry at position 29 
(this wiU be found starting at FRS 7, byte 60H). Write down the 
name of this entry. If there is no entry at this position, continue 
creating files. 

Now, boot your system again and rename that file at position 
29 to SYSJKL/SYS. 



Finally, you can purge all those files that are not needed any 
longer. If you execute a DIR now. you'll find that SYSJKL/SYS 
is present as a normal visible file. This does not look very 
professional for a /SYS module. Use SUPERZAP again to change 
the first 2 bytes of the directory entry of SYSJKL/SYS to 5FH, 
20H. Now, your file will only be displayed by DIR /SYS. How. 
copy the file SYSJKL/CMD to SYSJKL/SYS onto your new system 
diskette and you're all set. 

The /SYS module is installed now, but your system will not 
recognize that it is there. In the Model I version of HEWDOS/80, 
the normal 7KL routine is located in SYS3/SYS, FRS 4, starting at 
byte 96H (byte 73H on the Model III version of HEWDOS/80). At 
this place we apply the call to our own module'. LD A ( 9DH } 
RST 28H, which is 3EH, 9DH, EFH. Once you have zapped those 
three bytes, your module will work. 

Boot your system and try it. Don't forget to copy 
BASIC/CMD as well as all other programs you need to your new 
system. 

Hill i mnuuimiiiHi imnnnu im 10711 JP 

10111 Ji JftSYS/SRC i M72I CALL 

10121 ;i a (BOOS M/2 ftstte-nodificaUan * 00730 LD 

10130 ;i of JO. with Graphic-Blacks I 10740 LD 

10110 Ji for EPSOM-Priniers » 00750 DDEHT CALL 

00150 ji of tvm nm n, m , Rxeo, fxm ■ oi76o djnz 

10161 ;■ * 

10171 Ji Joachin Kelterbeun * 

11180 ; n i iii i iiiiiiiiiiim i imm»uun 



Hapey JKI.-iBg! 



Joachim Kelterbaum 



01191 

1(201 START 

00211 

10220 

10230 

01211 

01251 

1*261 

10270 

00280 

10290 
10301 

1831* ZEZLE 

10321 

00330 

10310 

10350 

00360 

00370 

00380 

00390 

10111 

10111 

0H20 

10130 

11110 BERGRF 

10151 

00160 

00170 N36I 

10181 

10191 SKIP 

00500 

10510 

00520 

10530 

00510 

10550 BERTXT 

0O560 

00570 

01580 

00590 

II60IGRFK 

II61ICTLSP 

10620 GK 

10631 

11611 

00651 NOCn. 

01661 

01671 

10681 

00690 

00700 H3TER 



ORG 

EXX 

CAU 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

LD 

LD 

PUSH 

LD 

LD 

ADD 

LD 

LD 

LOIR 

LD 

LD 

LD 

LOB 

LD 

LD 

LD 

CP 

JR 

LD 

LD 

DC 

DJNZ 

LD 

LD 

LD 

LD 

LD 

CP 

JR 

ADD 

JR 

LD 

LD 

DC 

DJNZ 

JR 

CP 

JR 

LD 

LD 

JR 

CALL 



1D00H {start systea overlay area 

isavt resistors 
DOT {initialize printer 
BC,2MH {delay loo? 
6IH } 
A,NH 
PRT 

A,0W 52 LF's 
PRT 5 
H.XIIM-61 {linepointer 

video-** 
(2EMD),a 
BC,16 J 16 linn 
BC {start of line loop 
8C,61 
H.,(ZEIAD> 
HL,BC 

(ZEIAD)^L {update linepointer 
DE.BUFTXT 

{transfer line to BUFTXT 
6C.61 
DE,BUFGRF 
H.,(ZEIAD) 

{transfer line to BURST 
HUBUFGRF 
B,61 

A,(tL) {load char fron BUFGRF 
8W 

JC,9Q? 

ft,8IH {if no grwhicstso 
(HL),A {replace bit 8tM 
H. JBK-goon 
BERGRF 
H.,BUFTXT 
8,61 
A.I 

(FLG),A {FLG=l,if no graph, in line 
A.OL) {load char fron BUFTXT 
2M 
NCHOCTL! intercept CNTL codes 



00770 

11780 

11791 Z1GR 

M801 

11811 

11820 

00830 

11811 

10850 

00861 

M870 

11880 NOl 

10890 

10900 

00911 

01921 

10730 ND2 

01910 

10951 

10960 

11971 

10981 

01991 

11000 

01010 

01020 

01030 N013 

01010 

01050 

01060 

01070 

01181 H033 

01090 

01100 

mil 

11120 
11131 
•till 

01150 
11161 



A,UH {replace by correspond. 

CTLSP 

A,20H 

(H.M 

HL 

BERTXT 

MUTER 

80H 

C,0X 

A,l 

(FLG),A 

GRFK 

TEST 



ASCH 01170 
01180 



{if graphics,so set fLG 

{replace by 2tH in BUFTXT 
{if no graphics,so print 



01190 

11201 

■1210 

11221 DD2 

11231 

11211 

11251 

11261 ZTXOUT 

11271 

11281 

11291 



LD 
LD 
LD 
LD 
LD 

en 

JR 

LD 

OR 

LD 

LD 

BIT 

JR 

LD 

OR 

LO 

LD 

CAU 

LD 

LD 

BIT 

JR 

LD 

OR 

LD 

LD 

BIT 

JR 

LD 

OR 

LD 

LD 

CALL 

DC 

DJNZ 

LD 

CALL 

LD 

CAU 

LD 

CALL 

LD 

CALL 

LD 

LD 

CALL 

WW 

LD 

LD 

LD 

CALL 

DC 

DJNZ 



EWTCH8*3 HQTEi For further information on creating your 
own /BY* files under «EWDO6/iB0, I refer you to the article on 
that subject in the previous issue of northern Bytes, also the 
additional comment* in "The Ertermjnator" column elsewhere in 
this ifi«u*> Ales, Joachim has provided me with two versions of 
this program - *he «w below, for use with Epson ami compatible 
printers, mi ana for use with Centronics 73* printers. Since the 
739 version j« not awmented, I #» not reprinting it here, but you 
may obtain * c*PY of the source cod* listing by sending a 
seJ#-*ddres##d stamped envelope to me <u«e the Sault Ste. Marie 
address (for this, not the Lansing address). Here's the source 
code listing far the Epscm-compatttle version of the program! 



ZfFERTIGJand --> rBtTR 



ESCS 
B,60 
A,l 
PRT 

Deem 



{initialize 



(print 61 Mm at MH 
(indent) 



6,61 
H..8UFGRF 



{clear C 

\\.9*drmtrimmWf 

{save to 

{bit 4 set ? 

{no, «• **> MH 

{yes gat C 

{set tap 4 bits 

ftrtfibr 
{bit 2 set ? 
{no, #» — > JK 

{*»»***£ 

{set tower 1 Pits 

!weE 

!«t£ 

{print 3 ml U/2 

chiraetarwidth) 



E,l 
A,(HL> 
D,A 
1,A 

z,»i 

A,E 

0F1H 

E.A 

A,D 

2.A 

Z^02 

A,E 

IFH 

E,A 

A,E 

PR3 

E,l 

A,0 

liA 

Z.HB13 

A,E 

IFtH 

E,A 

A,0 

3,A 

Z,W33 

A,E 

•FH 

E,A 

A,E 

PR3 {like abwe, but with bits 

and 3 
HL 

Z1GR 
A,Z7 
PRT 
A, 'A' 
PRT 
A,l 
PRT 
A,0DH 
PRT 
6,10 
A,2W 
PRT 
DD2 

HL.BUFTXT 
B.41 
A, (ML) 
PRT 
HL 
ZTXOUT {print textlim 



51 dot linefeed 

;lf 



{10 blank* indent 



nm 

•1311 

11321 

W33I 

11311 

•1351 

11361 

•1371 

M3M 

»U9» 

•MM 

MftOaK 

•i«4 

•1130 

•UK 

M1WSP 

•1461 

M17I 

•MM 

•HW 

I15M 

•1910 

•1520 

41530 

01510 »n 

•1550 
11560 

11570 
USB* 

•1591 

•1611 
•1621 

11631 ma 
•1611 
•1651 
11661 
11671 
11681 
11691 
1 11711 
•1711 
11721 
11731 

11711 

11750 FBtTH 

11761 

11771 

11781 

11791 

I1BM 

01810 

01820 

01830 

I18H { 

11851 TEST 

11861 

11871 
11881 
11891 
•1911 LEER 



LB 

CALL 

U> 

CALL 

LD 

CALL 

LD 

CALL 

ID 
LB 
CAJ4 

LD 
IB 
LO 
LB 
LO 
LO 

m 

JR 

LB 

OR 

LO 

LD 

CALL 

LD 

BU 

JR 

10 

OR 

LD 

LD 

CALL 

DC 

DJNZ 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LO 

CALL 

MP 

LB 
OR 
JP 

EXX 
MR 
Rtl 

LD 
CP 

RET 

LD 
LD 
CALL 



A.Z7 

m 

A, 'A' 

m 

A,7 

m 

ntmm 

IOT 

ESS 
8,60 
M 

m 



17 dots linefeed 

{initialize graphics-node 
flew 2 e/aphics-blocks 
{**t like above 



mjmpbbf 

A»« 

£#A 

A, (ML) 

D.A 

44 

iMi 

A.E 

•F(H 

E.A 

A.E 

PR3 

E.l 

A,0 

5,A 

ZrMMS 

AtE 

•FfH 

E4 

A,E 

PR3 

HL 

ZZCR 

A.27 

PRT 

A, 'A' 

PRT 

A,4 

PRT }1 dots linefeed 

A,IDM 

PRT JLF 

BC 

K 

A,B 

C 

NZ,ZEH£ {end of line loop 

DOT {initialize printer 

{restore registers 
A {set Z flag (no error cond) 

{back to fasten 

A,<rU> {V 

• fit only text in lint .so 

print 
HZ {else retwn 
B,ll 
A.21H 
PRT 



11911 


DJNZ 


LEER 




11921 


LO 


HL.BUFTXT 


11931 


LO 


B,61 




11911 ZX 


LD 


A,(HL) 




I19M 


call 


prt 




11941 


DC 


HL 




11971 


DJNZ 


ZX 




11981 


U> 


A,27 




11991 


CALL 


PRT 




KIN 


LD 


A, '2' 




12111 


CALL 


prt 


J12 dots linefeed 


12121 


LD 


A.1DH 




12*31 


CALL 


PRT 


!LF 


I2M1 


XDR 


A 


[set Z flag 


12151 


RET 






12161 ; 








12471 MT 


LD 


A,Z7 


{UP- initialize pi 


12(81 


CALL 


PRT 




I2t9t 


LD 


A,'R' 




12111 


CALL 


PRT 




12111 


LD 


A,l 




12121 


CALL 


PRT 





12131 
12141 
12151 
02141 
12171 ; 
12181 ! 

12191 ; 
12211 ! 
12211 ; 
12221 ; 
12231 

12211 ; 

12251 ESCS 

12261 
12271 
12281 
12291 
12301 
12311 
12320 



LD 

CALi 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

CALL 

RET 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

CALL 



A,27 

PRT 

A,'*' 

PRT 

A,27 

PRT 

A,'R' 
PRT 
A,2 
PRT 



A,27 

PRT 

A,'K' 

PRT 

A,18S 

PRT 

A,l 

PRT 



{country selection GERhWY 
{leave out in American 
version 



JUP- initialize 
graphics-node 



02330 
12340 ; 
12350 PR3 
12360 
02370 PTG 
02380 
02390 
02400 
02110 i 
02120 PRT 
02130 
02110 CHK 
12150 
12161 
12170 
02180 
02190 ; 
02500 FLG 
02510 ZEIAD 
02521 BUFTXT 
12530 BUFGRF 
12510 ; 
02550 



RET 

PUSH 

LD 

CALL 

DJNZ 

POP 

RET 

PUSH 

LD 

BIT 

JR 

LD 

POP 

RET 

DEFB 
DEFH 
DEFS 
DEFS 

END 



BC 

B,3 

PRT 

PTC 

BC 



JUP- print char 3 tines 



HL 

HL,37E8H 

7,<HL> 

NZ,CHK 
(HL>,A 
HL 



1 
1 

61 
61 

START 



{print char 



MPWDOS/80'S PARAMETER SCANNER - Copyright by Greg 
Small - 23 iFebruiry 19845 

Newdos/80 Version 2>0 has a parameter scanner that can be 
of considerable use to assembly language programmers. 

I have never seen this documented and in my disassemblies 
of Newdos/80 have found a considerable number of CALLs to this 
routine. I decided that this information would be helpful to a 
number of Newdos/80 users and decided to make it available to 
Jack and Charley. This may also stimulate some interest in the 
proposed Newdos/80 users group as outlined in Volume 5, Number 
3 of Northern Bytes. 

This routine is used to parse commands with optional 
parameters such as •SYSTEM,0,AY-N,AZ»N" or "VERIFY.Y". This 
later command could also be entered as "VERIFY Y" or as 
"VERIFY Y". The command could also be incorrectly entered 
as "VERIFY„Y" or "VERIFY, Y" or "VERJFY.T". 

The Newdos/80 command interpreter's positioning of the HL 
register pair is explained in ZAP 063 Part 3 (Model I) and ZAP 057 
Part 3 (Model HI). 

The routine in question is located at 4CD5H for the Mod I 
and at 4C7AH for the Mod III. It is 24 bytes long and can be 
called with the following setup: 



LD 



HL.TEXT 



CALL ROUTINE 



JFtaint HL to command string 
(Unnecessary if HL has not been changed 
{since the program loaded as HL will point 
{to TEXT at entry 
{Use routine in question 



Following is a summary of the Entry and Exit conditions: 

Entry: HL-> *," 
Exit! HL =>> Byte after V 
A - 34H 

Z ■ reset 
C ■ set 

Entry: HL => Space or series of spaces 
Exit: HL => first non-space 

A = 34H 

Z ■ reset 

C = reset 

Entry! HL => Carriage return 
Exit! HL »> Carriage return 

A * ODH (Carriage return) 

Z * set 
C ■ reset 

Entry! HL => Byte other than one of the above 

Exit! HL-> No change 

A = 34H 

Z = reset 

C = set 

The following commented disassembly of this routine is for 
the Mod I. The Mod III version is identical but starts at 4C7AH. 



4CD5 7E LD A,(HL) {Get byte painted to by HL into A 

4CD6 FEOD CP ODH {Is it a carriage return 

4CD8 C8 RET Z {YES - return with Z set 

4CD9 7E LD A,(HL) {NO - Get byte again 

4CDAFE2C CP 2CH {Is it a comma 

4CDC 23 INC HL {Point HL to next byte 

4CDD280A JR Z.4CE9H {YES - JR to prepare to bail out 

4CDF FE20 CP 20H {NO - Then is it a space 

4CE1 2B DEC HL {Point HL back to original byte 

4CE2 37 SCF {Set Carry flag 

4CE3 2005 JR NZ.4CEAH {NO - JR to prepare to bail out 

4CE5 23 INC HL {YES - point to next byte again 

4CE6 BE CP (HL) {Is this byte same as A (space) 

4CE7 28FC JR Z.4CE5H {YES - JR to test for space again 

4CE9 B7 OR A {Reset CARRY flag 

4CEA 3E34 LD A,34H {Set A to 34H 

4CEC C9 RET {Return to caller 

I want to continue with this type of disassembly and would 
like to hear from any of you who have disassembled and 
commented similar routines. You may contact me at the following 
address! 

Greg Small 

Box 607 

Stouffville, Ontario, CANADA 

LOH 1L0 

or you can leave a message on my bulletin board. New users are 
limited to 15 minutes due to the high caller traffic we get from 
Toronto so you should have your message ready for uploading. 
The board is a TBBS type so you may already be familiar with the 
message uploading formats. The number for the board is 
(416) 640-3434 and the parameters are 8N1 - 300 baud only. 
Please select <R>egister as your first choice so I can set you up 
for special access for Northern Bytes readers. 

CFor those of you that missed last month's issue of 
NORTHERN BYTES, Greg is attempting to start an international 
NEWDOS/80 user's group. If you're a NEWDOS/80 user, be sure 
and drop Greg a line or dial up his BBS, and let him know of your 
interest!. 

FORTH BULLETIN BOARD SYSTEMS by Paul Snively - For 
those who are interested, there are two BBS's that I have found 
that offer support for Forth fanatics. 

The first is at (206) 759-0615, The computer is a TRS-80 
Model I running QFORTH 1.8 A. This BBS is written in Forth, end 
it has a tree structure for its messages. It takes a little getting 
used to, so for the first attempt the caller might want to 
download the help files. Incidentally, this board supports 1200 
baud communication (a lifesaver!). 

The other is at (206) 756-0448. This computer is also a 
TRS-80, but the software is TBBS. However, this is the only 
TBBS that I know of that has an active Forth SIG, It also has 
limited download capability in Forth. This system also supports 
1200 baud. 
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A PATCH OF A PATCH by Nate Salsbury (610 Madam Moore's 
Lane, New Bern, North Carolina 25860)'. 

In the October, 1981 edition of '80 Microcomputing', an 
article by Arne Rhode (Pilevej 31, 7600 Struer, Denmark) outlined 
a program to transfer EDTASM-Plus (by Microsoft) from its Model 
I cassette version to a Model I disk environment. You could then 
load in your cassette source programs and store them to and 
retrieve them from disk. Also, new source could be 
saved/retrieved from disk. I had (then) recently moved from a 
cassette Model I to a 2-disk Model III and was VERY anxious to 
salvage my miles of tapes and months of typing source teit. I 
blithely followed Arne's excellent instructions on how to proceed. 

After successfully getting my Model I (cassette) EA+ on to 
my Model III disk, I happily started to 'salvage' my first Model I 
tape. All went smoothly until the LAST BYTE and then the 
keyboard locked up and the screen jittered around with some 
miscellaneous garbage on it! After some excellent hints from 
Jack Decker and Bruce Hansen, I finally traced the source of my 
problem and evolved this Patch of a Patch (lines 2000 to 2560 of 
this listing). The difficulty came about because of the different 
cassette routines in the Model III ROM - in particular 235H (read 
a byte) and 1F8H (turn off cassette). A brief review of my 
findings and 'fix' follow. 

After EA+ finishes its initialization, it jumps to a routine 
starting at 44CCH. The first four lines here read! 



44CCH LD SP.4380H 

44CFH CALL 01F8H 

44D2H LD BC,44CCH 

44D5H PUSH BC 



iTurn off cassette 



This reveals two points! (1) The 'final' RET address on the 
stack is 44CCH and (2) the first action after getting there is to 
'turn off the cassette' - in other words, this is always the first 
thing EA+ does when it recycles to 44CCH to await your next 
command. I was finally led to tracing out the 01F8H routine in 
ROM. 

At 01F8H there is a jump to 300CH and from there a jump to 
31C0H where the routine really starts. The first two instructions 
seem to create most of the problem! 



31C0H LD 
31C3H OUT 



Ai(4213H) 
(0E0),A 



{Normally with TRSDOS => 04H 



followed by some routine housekeeping and, finally, at 31CFH! 

31CFH EI {Enable interrupts 

31D0H RET 

To this day, I'm not sure WHY that OUT <OE0H),A at 31C3H 
caused my problem (along with the EI at 31CFH). However, those 
two WERE the cause so I fixed them. I also found that EA+ also 
used the byte at 4213H (which distressed BASIC) so I had to work 
out a "time sharing" arrangement. 

I will not describe any aspect of Arne Rhode's original patch 
since this was covered thoroughly in the referenced "80 
Microcomputing" article. The reader is advised to review that 
text. It will cover this listing through line 1840 (I have made 
several modest changes to fit my EA+ version 1.07. More on that 
later. Also, my line numbers differ from the article but the 
instructions are the same). 

My patch accomplishes two main purposes! (1) Save the byte 
at 4213H under £A+ and give it back to BASIC at the appropriate 
times and (2) Disable interrupts after every call to the 1F8H 
routine. Along the way, I added a third item which was to return 
to the EA+ '»' prompt after using BREAK to stop a cassette load 
(rather than return to BASIC). Please note that my references to 
EA+ addresses' refer to my version, 1.07. If you have a different 
version, the addresses you use may vary slightly but they 
SHOULD be close to those I cite here (e.g. note the difference in 
my ORG 6486H and Arne's article which ORGs at 646CH). 

When EDTASM starts to Load a source tape, we get the 
READY CASSETTE prompt. In version 1.07 this is accomplished 
by a CALL 4408H instruction. To find your equivalent, 
disassemble the Command Jump table (in version 1.07 this lies 
between 4659H and 469AH). Find the ASCII 'L' and then 
disassemble EA+ at the address pointed at by the two bytes 
immediately following the 'L'. In Version 1.07 that was 4D0EH. 
Here I found the following code! 



4D0EH CALL 4FB1H (Of no concern here 

4D11H LD E,0D3H {Identifying byte at the start 

{ of an EDTASM source file 
{Finds the start of your source 
{ file 



4D13H CALL 4FFEH 
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At 4FFEH I found! 

4FFEH CALL 4408H 

Disassembly of the 4408H routine showed that THIS was the 
routine which puts READY CASSETTE on the screen. Since this is 
just before we fire up the cassette, I used TASMON to search EA+ 
and Z-BUG for similar calls and discovered them at 4FFEH (as 
noted) and also at 4FD4H. At these two spots I replaced 4408H 
with the address of my CASSON label (see line 2000). There, I 
call the routine to print READY CASSETTE, set the cassette 
speed to 'L', change the BREAK vector to EDTASM's warm start, 
and replace the byte in register E (0D3H - the first byte of a 
source tape which was in E when EA+ gets to CASSON). Then, it's 
back to EA+ for continuation of source tape loading. 

Since I wanted to fiddle with the "cassette off" routine at 
1F8H, I also searched EA+ and Z-BUG for CALL 1F8H and found it 
(in version 1.07) at 44CFH, 4D1FH, 650DH and 7IC6H (the last two 
are in Z-BUG). I replaced the CALL 1F8H at each location with a 
CALL to my CASOFF address (line 2260). Here, I save the byte at 
4213H which 'belongs' to EA+, and replace it with the 04H byte 
which is normally found at that address by the ROM routine. 
Then, after a CALL 1F8H to turn off the cassette, I immediately 
DISable the interrupts again, restore the usual BREAK vector and 
get hack to EA+ for whatever. 

This patch allowed me to salvage all those Model I source 
tapes and get them on to my disk. Let me hasten to warn any 
reader that I found that SOMETIMES, the 'Find a String' routine 
of EA+ would NOT work properly. I cannot guarantee that 
everything el*e is OK because shortly after doing this, I became 
interested in other work and, eventually, got the Model III disk 
version of EA+ and discontinued the project. However, for my 
purposes, the major task of salvage had been accomplished. I was 
subsequently able to transfer these files over to my 'new' EA+ 
and that's what I started out to do. 

Several comments are appropriate here regarding this patch. 
Of necessity I had to add it at the end of Arne Rhode's program so 
that source texts would not overwrite the patch. This, in turn, 
required a modification to his EQU for BFSTAD (at line 140 of his 
listing in the original article. It is line 470 in this listing). The 
value you want there is the location shown in line 2520 of this 
listing PLUS 0E80H - the amount of the offset from 4380H to 
5200H (Note! Arne suggests saving everything from 4000H up - if 
you follow that path you will have to add 1200H instead of 
0E80H). Since different versions of EA+ apparently differ in 
length, you'll have to experiment to determine where to locate 
your version of my patch, 

A final note on Arne Rhode's article - I found it necessary 
to insert line 1630 XOR A (to clear the carry flag). Because of 
differences in my version of EA+, I started the routine shown in 
his lines 1200-1260 at 7330H. My lines 1790 - 1820 calculate the 
length of the program to be moved and then relocates it to its 
normal position. Since EA+ clobbers DOS, I saw no point in saving 
RAM from 4000H to 437FH. This has two benefits! (1> The 
transferred source text (when you save to disk) can be located 
lower in RAM, thus allowing longer assemblies and (2) Less disk 
space is used. With this background, my TRANSFER address of 
the LOAD module of my source text is 7330H + (5200H - 4380H) = 

81B0H (see lines 1390 - 1420). 

I also had to change EA+ at 4389H and 438FH where it 
CALLs 0215H. I changed these to 'CALL 0212H' and that was the 
final touch. Since my interest was to salvage my old cassette 
source tapes (but NOT to create new ones) I never explored my 
revised setup's ability to write source text to tape (since it could 
now store it on disk). Also, I did not do Stand Alone Z-BUG 
because TASMON does all the same things and much more. 
However, the procedure would be similar once you locate Z-BUG's 
command jump table. In my version of Stand Alone Z-BUG , this is 
located from 4FEBH to 501AH with the "L* command located at 
500FH* 

One last note! EA+ replaces the RST 20, 28 and 30 
instructions with its own routines. Don't try to use Z-BUG on 
programs that use any of these three RST instructions - either 
directly or via ROM routines - not unless you enjoy reading your 
"XYZ DOS READY" message lots of times! 



I wish to thank Jack Decker and Bruce Hansen for their 
extensive time with me on the telephone as I bumbled about trying 
to unravel this mystery. This article could not have been written 
without their comments and suggestions which finally pointed me 
to the solution. My other silent co-contributor was my monitor, 
TASMON. It even allowed me to single-step the ROM routines! 



8211 



8212 
B2H 



FFFF 



6W6 



6M6 2A3212 

6189 E5 

MBAEDSB3MZ 

61BED5 

MBF23 

619123 

6191 E5 

6192 23 

6193 AF 
6191 ED62 
619611 
6197* 
6198 211382 
619BI9 
6itC vo 



Dim 
urn 

10121 
••13$ 

mil 

11151 
11161 
11171 
11181 
11191 
II2II 
11211 
11221 
11231 
11211 
00250 
11261 
11271 
19281 
11271 
10311 
11318 
10321 
11331 
00310 
11351 
11361 
11371 
11381 
11391 
IMII 

ihii 

11121 
IM3I 

imi 

00150 
IM6I 
11171 
IM8I 
11191 
1 1511 
11511 
1 1521 
11531 
•0511 
II5SI 
10560 
10571 
1 1581 
10591 
10611 
00611 
00621 
10631 
00611 
00651 
10661 
11671 
01681 
00691 
II7II 
10711 
10721 
00731 
10711 
00751 
01761 
00770 
•0780 
00790 
00801 
10810 
00820 



i A PATCH OF A PATCH 

(TRANSFERRING MICROSOFT'S EDTASH-PLUS MODEL I CASSETTE ' 
9R0GRAM TO A H0DEL m DISK (HTTH THE ADDED VIRTUE OF 
(SAVING SOURCE TEXT TO DISK). 

NATESALSBURY 

610 mm MOORE'S LANE 

NEW BERN, NC 28560 



m i iiii iiuuiiimmniuamHinHiiBW 



«THE FIRST PART OF THIS 2-PATCH LISTING (LINES 170 TO 
11810) APPEARED IN THE OCTOBER '81 EDITION OF '80 WCROi 
CONFUTING', PAGE 311. THE AUTHOR MAS ARTE RHODE. THE 
(READER IS REFERRED TO THE ARTICLE FOR A DETAILED DIS- 
ICU5SI0N OF THAT PART OF THIS LISTING. IT HAS BEEN RE- 
PEATED HERE FOR CONVENIENCE IN REVIEWING NY ADDITIONS.) 

■THE ORIGINAL ARTICLE DISCUSSES VARIOUS TECHNIQUES FOR i 
(OOmALLY GETTING THE CASSETTE VERSION TO YOUR DISK. 

■SEVERAL CHANGES MERE HADE BY HE TO ACCOMODATE NY MACH-i 
IDC AND MY VERSION OF EDTASH-PLUS. THESE CHANGES ARE 
(DISCUSSED IN THE TEXT OF THIS ARTICLE. 



iniTBiP"""""""""""""'"'"""""'"""* 



++++444 MH i nnn i nmH 

♦IMPORTANT NOTEt 
nnnnnmn i un iii n 

TO USE THESE PATCHES YOU GIVE UP THE EDTASN 'OUASH' 
FEATURE. IT IS REPLACED BY COMMANDS TO EOT EDTASM 
AND STORE YOUR SOURCE TEXT ON DISK. 



BFSTAD EGU 8210H 



BFENAD EOU 
BUFFER EOU 



BFSTAD+2 
BFENAD+2 



{START OF 'DUN" BUFFER 
J HHICH IS 7390H (8UFST) 
i + 0E8OH OFFSET FROM 
; 13B0H TO 5200 
lEM) OF ACTUAL TEXT*8212H 
{TEH? STORGE BUFFER=821« 



. ..■.■■ m i ii ■iiiniiiriiiiiiiuimiinm 

J CHANGE THIS EOU FOR YOUR HACHDC IF NEEDED 

* 

HEHEND EOU OFFFFH 

• 

t 

♦ fw iMii ii i mimilllllllHUHUIIHIIIIIIIIHIlHI I H 

♦ 

{YOU HAY HAVE TO 'ORG' AT DIFFERENT ADDRESS. THE ARTICLE 
;» '81 WCROCOhTUTING' HAS INFORMATION ON HON TO FIND 
(THE RIGHT PLACE IN YOUR EOTASH-PLUS. 



ORG 61B6H 



{START OF 'QUASH' SEO 



■.. mii.imnmm ■imiiimiiillKllll 

LD HL,(1232H) {END OF EDTASH TEXT PTR 

PUSH HL JSAVE END ADDRESS 

LO DE,(1230H) {START OF EDTASH TEXT PTR 

PUSH DE JSAVE START ADOR 

DC HL {HOVE PAST TWO 0FFH 

DC HL JBYTES AT END OF TEXT 

PUSH H. {SAVE THIS POINT TOO 

DC HL {JUST PAST END OF ALL TXT 

XOR A {CLEAR CARRY 

SBC HL,DE {FDD LENGTH TO HOVE 

LD B,H 

LD C,L {BYTE COUNT TO BC 

LD HL,BUFFER-1 {OEST ADOR -1.. 

ADD H-,BC { + LEM = EH) ADDRESS 

EX DE,HL JOE HAS BUFFER END ADOR 



619D El 


10830 


POP 


HL 


{END OF EDTAGH SOURCE 


619ED5 


10810 


PUSH 


DE 


{SAVE END OF BUFFER ADOR 


619FEDBB 


11850 


UDOR 




{HOVE TEXT TO BUFFER 


61A1D1 


10860 


POP 


DE 


{END OF BUFFER ACAD* 


61A2E1 


00870 


POP 


HL 


{START OF EDTASH SOURCE 


61A3 221082 


00880 


LD 


(BFSTAD) ,HL 


{SAVE EDTASH START ADOR 


61A6E1 


00890 


POP 


HL 


{END OF EDTASN SOURCE 


61A7 221282 


01900 


LD 


(BFENAD), a 


{SAVE EDTASH END ADDR 


61AA21CE72 


00910 


LD 


HL.DHPADR 


{SCREEN TXT FOR 'DUMP' 


61AD7A 


10920 


LD 


A,D 


{MSB END OF BUFFER ADDR 


61AECDB172 


00930 


CALL 


CNVL 


{TOP 1 BITS TO HEX 


6«17A 


00910 


LD 


A,D 




6C2 C08B72 


00950 


CALL 


out 


{LOH 1 ens TO HEX 


6«5 7B 


00960 


LD 


A,E 


{LSB OF END OF TEXT 


MB6CD8172 


00970 


CALL 


CNVL 


{TOP 1 BITS TO HEX 


6*9 78 


00980 


LD 


A,E 




61BACD8872 


00990 


CALL 


CNVR 


{LOH 1 BITS TO HEX 


MOD 219572 


01000 


LD 


HL.TEXT 




61C0CD3215 


01110 


CALL 


1532H {TEXT TO SCREEN VIA EDTASH 


61C3 


01120 WTSFC 


EOU 


* 




6C3 3M03B 


01130 


LD 


A,(3810H) 


{KEYBOARD MEMORY 


61C6E680 


01010 


AND 


80H 


{ISOLATE 'SPACE' 


6C8 28F9 


01050 


JR 


Z.HTSPC 


{ONLY GO ON 'SPACE' 


6CAC3000I 


01060 
01171 { 


JP 





{RE-BOOT HEN DONE 




01080 { MM 


, GO TO END OF ACTUAL EDTASH PROGRAM AND ADD MORE 




01090 ; 








7281 


ouoo 

ouio ; 


ORG 


728* 


{JUST PAST END OF EDTASH* 




01120 {CONVERT NIBBLE TO A HEX CHARACTER 




01130 ; 








7281 


01110 CNVL 


EOU 







7281 OF 


01150 


RRCA 






7285 OF 


01160 


RRCA 






7286 OF 


01170 


RRCA 






7287 IF 


01180 


RRCA 




{HOVE MSB TO LSB 


7288 


01190 CNVR 


EOU 


* 




7288 E60F 


01200 


AND 


0FH 


{REMOVE UPPER HLF 


728AF630 


01210 


OR 


30H 


{TEST FOR NUMERIC 


728CFE3A 


01220 


CP 


3AH 


{CHECK FOR ALPHA 


728E 3802 


01230 


JR 


CHEXOX 


{IT'S A NUMBER 


7290 C607 


01210 


ADD 


A,07H 


{CONVERT TO A-F 


7292 


01250 HEXOK 


EOU 


t 




7292 77 


01260 


LD 


(HL),A 


{STORE IN SCREEN NSG 


7293 23 


01270 


DC 


HL 


{TO NEXT SPOT IN HSG 


7291 C9 


01280 


RET 






7295 0A0A 


01290 TEXT 


DEW 


IA0AH 


[THO LINE FEEDS 


7297 52 


01300 


DEFH 


'RECORD FTJLUMNC INFORMATION' 



1513 1F52H20 161F1C1C1F57191E17 20 

19«16*52«115H9V* 
72B3 0A0A 01310 DEFH 0A0AH {THO LINE FEEDS 
72B5 H 01320 DEFH 'DUMP FILESPEC NAME ' 

55 1D 50 20 16 19 « 15 53 50 15 13 20 IE 11 10 

15 20 



72C8 38 01330 

32 31 30 18 
72CD 20 01310 
72CE 58 01350 DNPADR 

56 58 5B 18 

01360 
72D3 20 



DEFH '8210H' 



DEFB 
DEFH 



20H 
'XXXXH' 



{START OF RELOCATED SRC 



{PROGRAM FILLS THIS IN 
{AS 'END' OF DUMP 



DEFB 20H 



01370 

01380 ; 

01390 {TRANSFER ADDRESS FOLLOHS. CALCULATED^ PROG SHTFTED BY 
01100 }52MH-1380H=€80H. THE 'TRANSFER' SECTIDN IS N0H 'ORG' AT 
OHIO J7330H. THEREFORE, 7330mE80H=81B0H - ADDRESS FOR TRANS- 
01120 {FER ROUTINE WHEN PROGRAM IS FIRST LOADED IN FROM DISK. 
01130 { 
72M 38 01H0 DEFH '81B0H' {ENTRY POINT TO MOVE ALL 

31 12 30 18 

ll«0 iTHE 'TRANSFER' ADDRESS 

72D9 0A0A 01160 DEFH 0A0AH {TWO LINE FEEDS 
72DB 57 01170 DEFH 'WHEN READY, HIT SPACE BAR TO BOOT' 
18151E20 5215 1111592C20 18195120 53 
50 11 13 15 20 12 11 52 20 51 IF 20 12 IF f 51 



7ZFC8I 



72FD 

72FD 318013 



DEFB 80H 



{EDTASH TERMINATOR 



01180 

•1190 { 

01500 {ENTRY POINT AFTER EDTASM RELOCATED BY ROUTINE 9 7330H 

01510 { 

01520 BEGDt EOU ♦ 

01530 LD SP,1380H {EDTASM STACK 
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73WMU82 


•1541 


LA 


HL,(BFSTAl)) 


(SMUT OF EDTASH TXT BUT 


tmmm 


41551 


LD 


(4234H),HL 


{STORE IN EDTASH 


7346 E5 


ll*6t 


raw 


ML 


{START OF EDTASH TXT 


7*? Ml* 


I1S7I 


LA 


HL,<BFENAD> 


!END «T EDTASH TXf BUF 


734* 223242 


I1SM 


LD 


(4232H),HL 


[STORE IN EDTASN 


734B23 


11571 


DC 


ft 




73KZ3 


41611 


at 


It 




73V II 


11611 


NOP 






7311 01 


11621 


POP 


DE 


(START OF EDTASH TEXT if 


731i# 


11631 


xor 


A 


{CLEAR CARRY 


7312 E052 


11614 


SBC 


HL.DE 


{LENGTH TO HOVE 


7314 41 


41654 


LD 


B,H 




7313 « 


11661 


LD 


C,L 


{BC HAS BYTE COUNT 


7314 211482 


11671 


LD 


hl,buffer 


{START OF HOVE 


731? EDB4 


11684 


LOW 




!HO« DUMPED TXT TO EA* 


731B21FFFF 


11691 


LD 


HL.HEHEW 




731E 223642 


11711 


LD 


<423«H),H 


{STORE IN EDTASN 


7321 2B 


11711 


DEC 


HL 




7322 223442 


11721 


LD 


(423*0,14. 


{ANOTHER EDTASN PT* 


7325 C38343 


11731 
11744 I 


JP 


438* 


{EDTASH IMRN START ENTRY 




11751 ! 


THIS SEQUENCE II EDTASPH 0TER LOADING H»l DflK 




11761 ! 








7331 


11771 


as 


7334H 




7331 F3 


I17M 


DI 






7331 111631 


11791 


LD 


BC,EHDTXT-43BIH42 |« BYTES TO HflVE 


7334 Z1IKQ 


11811 


LD 


HL,52UH 


|H »> SOURCE 


7337 118443 


11811 


LD 


DE,438M 


iOE => OESTlNATldN 


733A EdN 


11821 


LOIR 




{HOVE DUMPED PROGRAM 


733C C3FD72 


•1831 


JP 


BEGIN 


{GO TO NEXT STEP 




•1844 { 






ti86i ;+ 




♦ 



»mt i n ii ii i H i n ii i i n ii iiMiMiH 

AFTER EDTA9H4 IS ROVED INTO PLACE, CHANGE 'CALL 
4H8H' AT 4FDW ( 4FFEH TO CALL HERE INSTEAD 

u i» nM i nn i nnmnm i n i nmnn i n i t i m i 



733F 
733FCDNM 



7342 AF 

7343 321112 
7346 21*342 

7349 118473 
73CI1I3N 

73TEDM 
7351 3EC3 
7353 321342 
7356 218312 
7359 22M42 
735C 1ED3 

735E C9 



735F 

735F3A1342 
7362 328373 
7385 3EM 
7367 321342 
734AGDF841 
736DF3 



11871 {+THB IS THE ENS OF THE ORIGINAL PATCH MUCH APPEANE© 4 

11881 W THE REFERENCED '8t fflCRtKOWUTINC' ARTICLE, ♦ 

11891 }+ 4 

B19II 5+THE F0LL0HIN6 PATCHES ARE THE AUTHOR'S TO ALUM USE 4 

11911 }4flF THE PREVIOUS MATERIAL ON A NODE HI. 4 

•1924 }♦ ♦ 

11931 { UW I H tt W 44++ W l I I 1 1 1 1 1 1 1 H 44444444 m 4 m »4 m« 444 

11944 { 

11951 { 

11961 { 

•1971 { 

11981 } 

11991 { 

12(11 CABSON 

Kin ; 

12121 

12134 

12114 

42154 

12(61 

•2171 

12(81 

•2191 

12111 

12111 

12121 

•2131 

12114 

12131 

•2161 

12171 

12181 

42191 J 

12211 i 

12211 { 

•222* { 

12231 { 

12244 { 

12251 i 

12264 CASOFF 

I227( { 

12281 

•2291 

12311 

•231* 

•2321 

12331 



EOU 
CALL 



XOR 

LD 

LD 

LD 
LD 
LOIR 

LD 
LD 
LD 
LD 

RET 



A 

(421 1HM 

HL,42t3H 

BC,43N 

A,K3H 

<4243H),A 

HL,4283H 

(42MH),HL 

E.4D3H 



{PATCH HHEN TAPE START! 

!EA» CALL HE INTERRUPTED 
{TO GET 'READY CABStTlt' 
{MESSAGE 

{SET UK CASSETTE SPEED 
{LOW OF 'BK' VECTOR 

{DUNNE TAPE LOADS 
{PLACE TO STORE It 
{I CHARS TO HOVE 
{SAVE 'EH 
{'JUMP' INSTRUCTllM 

{FOR TAPE 'BREAK' TO «0 

{TO EA4 'HARM' REENTRY 
{PUT THIS IN JUMP VECTOR 
{RELOAD E HtTH SOURCE 

{TAPE'S FIRST BYTE 
{TO EA4 MAIN PRtXMH 



4*444 m 44444444t44+ W + W 4444 I 1 1 1 1 1 1 1 1 1 H 1 1 M l 

AFTER EDTABH4 IS MOVED INTO PLACE. CHANGE 'CALL 
•1FTM' AT 44CFH, 4D1FH> 65I0H I 71C6H TO CALL 
HEREW6TEH). 

»4»4*t44>tt MM t4 MU I MM I M I H I H Ii mHMM «« 



EOU 

LD 

LD 

LD 

LD 

CALL 

DI 



A,(421») 

(STORE),* 

A,44H 

(4213HM 

I1F8H 



{GET EA* BYTE 
{SAVE IT 

{'REGULAR' DOS BYTE 
{PUT n THERE 
{TURN OFF CASSETTE 
{A 'HUST' 



73ft 3*8373 


12341 LD 


A,(STTJRE) 


{GET EA4 BYTE BACK . 


7371 321342 


12351 LD 


(4213H),A 


{AND REPLACE IT 


T9\ 218173 


12361 LD 


iLtUHUm 


{RESTORE 'BK' VECTOR 


7377 114342 


•2371 LD 


DE,42I3H 




737A •1(311 


12381 LD 


BC.MI3H 




7376 EOfil 


12391 LOIR 






737F C9 


•2101 RET 




{TO EM 


no 


12111 SAVBRK OEFS 


3 


{STORAGE FDR 'BK' VECTOR 


7193 •• 


12121 STORE DEFB 


l(H 


{SME (1213H) HERE 


••K 


12431 EXTRA OEFS 


(CH 


{TO START BUFFER AT 739IH 




12411 




{AHD, IN CASE I THDK OF 




(2151 




{ANYTHING ELSE! 




(2461 { 








■2471 }NE HUST SET UP MMY TEXT AND ADDRESSES IN EVENT HE 




(2481 {START HTH AN EMPTY TEXT BUFFER. THIS IS REQD SINCE 




(2491 (STtfHP IS THROUGH THE 'HARN' ENTRY TO EDTASH+. IF A 




(2501 {REAL SOURCE IS USED, THE 'OUMNY' KILL BE OVERLAID. 




12511 { 






73919173 


•2520 BUFST OEFM 


$ 


!EA* KILL START SOURCE 




12531 




{TEXT AT THIS ADDRESS 


7392 9173 


12511 BUFEND OEFH 


*-2 


{SEE 11/81 '81 HKRO' ART 


7394 FFFF 


•25SI ENOTXT OEFH 


•ffffh 


!EAt END-OF-TEXT MARKER 


•HI 


(2561 END 






•••(• TOTAL ERRORS 
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BMW 72FB BFENAD 8212 BFSTAD 8211 BUFEND 7392 BUFFER 8214 

HFSt 7391 CASOFF 735F CASSON 733F CHVL 7284 CNVR 72BB 

MPABR 72tt ENDTXT 7394 EXTRA 7381 HEXOK 7292 HENEND FFFF 

lAVtUt MB! STORE 7383 TEXT 7295 HTSPC 61C3 

- MODEL m BASIC PATCH (contributed by Nat* Salsbury) - 
Here's a patch for the BA§IC/CMD program of TRSDOS 1.3. This 
BAtcTt corrects the problem that if you scroll a program listing 
UUn$ the up-arrow or down-arrow keys, youll 'lose* two bytes of 
HIM for lath hit of a key. More important, if you put a STOP in a 
program to debug it, and then scroll the listing with those keys, 
the* When you try to CONTinue youll get a "Can't Continue* or 
"Mitt Without For", etc. error message if this patch is not 
installed! The patch is! 

PATCH BASIC/CMD (ADD««8C4,FIND»I)5,CHG=00) 
The problem that this patch corrects is due to improper stack 
operation, and is caused by an earlier "official" Tandy patch, 
which eliminated two bytes being ADDED to MEM when the 
BHiFT-up-arrow key was depressed (a bug that also appeared in 
early versions of NEWDOS, even before the Model HI came onto 
the market, but that's another story). The Tandy patch (which 
Should already be applied to your BASIC/CMD - if not, do this one 
first) was as follows! 

PATCH BASIC/CMD (ADD«38F8,FIND=F1,CHG«00> 
Nate says he got the above patch from two separata people, 
both of whom said they had used it for quite a while with no ill 
effects, and he reports that he's personally had no problems with 
it after using it for a month. 

SXMX&jLSXU&BaQ/ZIXIR DISKFTTE US3»0 HEWDOS/8Q - 
1 recently received a letter from Joachim Kelterbaum of Essen, 
West Germany in which he describes the process. Since Joachim 
haft a Model I, I don't know if this would work on a Model HI or 
hot. However, this is the procedure he used to create a 
telf-booting disk for the Model It 

Format a data disk (no system on it) - note that the 
TBR (track Step Rate) for boot must be set properly by PDRIVE 
before formatting the data disk. Now copy the /CMD file you 
want to be self-booting to the formatted data disk. Use the 
DUMiA command (where d is the drive number of your data disk) 
to make sure that your file was saved in one contiguous block (it 
mutt have only one extent, as listed in the EXTB column of the 
directory display). Now use StJPERZAP's DFS-option to find out 
starting track and sector in that track of this particular file, 
Then patch relative bytes 12 and 13 of BOOT/STB of that diskette 
the following way! 

12 * start sector • of your /CMD flic in that track. 

13 - start track * of /CMD file (absolute value e.g. 
track # - 1 if double density because of the single density 
track 0). 

Also patch relative bytes 47 and 48 (now contain a CP OASH 
instruction) with two NOP (OOH) bytes. Tour self-booting 
diskette should now be working. 

If you now destroy some unused tracks by over-formatting 
them in a different density or something similar, then your 
diskette will even be 'protected' (which, Joe observes, will 
probably teach potential pirates to get more sneaky). 



BACKING UP MORE RECENT (3.0 ON) VERSIONS OF SUPER 
UTILITY PLUS by Paul Snively - This particular technique is 
original with me* but I had some local help. Kudos to: J. Joseph 
Felt en, for being a good Z-80, and to Marshall Dunbar, far being a 
good stack and register set. Tup, you guessed it - we cracked 
SU+ 3.1a by disassembling the bootstrap and "playing computer" 
with it (I was the FDC. Boy, was that fun!!)) 

I won't go into all the gory details. Suffice it to say that 
the following method works! First, boot SU+ (we used 3.1a, which 
was current at the time.) Next, boot a disk with your favorite 
monitor (which, incidentally, should be TASMON. If it isn't, 
switch monitors!!)) USE THE RESET KEY TO RE-BOOT, NOT SU+'s 
EXIT OPTION! Go into the monitor and put these bytes in a 
convenient RAM spot! ED 37. Put a breakpoint after this 
instruction. Mith TASMON, this would be done via the M 
command. Example! 

M R 6000 ED 57 <BREAK> B 1 6002 

Having done that, <G>o to 6000 (or wherever you put the 
bytes. You should now be back in the monitor (thanks to the 
breakpoint.) Look at the A register. Write down the value you 
find there. THIS IS A CHECKSUM OF THE SERIAL NUMBER OF 
YOUR SU+!!! Believe me, you'll need to know this value. 

OK. Now boot SU+ again. Using the MOVE MEMORY option 
in the MEMORY UTILITIES menu, move memory from 4000H - 
67FFH to D500H. This will put the lower 10K of SU+ well out of 
the way of DOS and its library routines. Next, at FD00H, enter 
the following bytes! 

F3,21,00,D5,n,00,40,01,00,28,ED,BO,3E,XX,ED,47, 
31,00,FE,C3,15,40 

XX, of course, is the value that you wrote down. When you 
have done this, boot your favorite DOS (again, with the reset 
button) and use the appropriate DUMP syntax for your DOS with 
the start address being 6800H, end address is FD15H, and 
executing address is FD00H. Congratulations. You now have SU+ 
asa/CMDfile. 

Now then. What good is SU+ as a /CMD file? That's a good 
one. First of all, it allows 6U+ to be backed up very easily. 
Secondly, if there are any patches that you want to apply, it's 
much easier to do it to the /CMD file than to the original disk. 
Lastly, you can disassemble SU+ (also lots of fun,) or run it under 
your monitor. 

What? The /CMD file overwrites your monitor in high 
memory? I know the feeling. Some of you will be more or less out 
of luck, but you MULTIDOS and Newdos/80 users (you always 
(/knew!? that you have superior DOSes, didn't you?) can bypass 
the problem easily. Here's how! 

Get your monitor in memory. I use TAS MON 2. 12, which is 
relocatable, but I tend to put it from EOOOH to FFFFH. Once your 
monitor is in, go back to DOS and type 

DUMP MON/CD4S0 (START-X'SSSS',END-X'EEEE',CIM) 

SSSS and ESSE are, of course, the starting and ending 
addresses of the monitor. What's this weird syntax? This 
syntax, which exists only in Newdos/80 and MULTIDOS (thanks, 
Apparat and Vem) puts the file on disk WITHOUT THOSE NASTY 
LOADER CODES! That's right} it simply puts the bytes in memory 
straight out to disk. 

■So?" So, if you configure your SU+ for MULTIDOS and 
locate the file on the disk (using SU+'s FILE LOCATIONS option,) 
you can then simply READ THE FILE SECTORS TO THE 
APPROPRIATE HIGH MEMORY LOCATIONS AFTER SU+ IS 
ALREADY RUNNING! 

Wow, Now that you have your monitor in memory, though, 
there is one thing that you need to do before you jump to it! apply 
the following patch to SU+ (in memory)! 

Modify memory at A8CEH. Zap all bytes up to but not 
including the E9H to zeroes. Now go to the memory utilities and 
Jump to your monitor. Fine. To get back to SU+, <G>o to 4015H. 
Viola! 

»*» NOTICE *»» The above patch works on SU+ 3.1a 
assembled on March 16, 1983. It may or may not work on other 
versions. I have no other versions, so don't come crying to me to 
develop the patch for you. If you're desperate, however, you can 
send me a copy of your /CMD file backup, and I will find the patch 
point and a) send you a patch sheet, or b) call you (collect. Sorry 
about that) and tell you what to patch and where. I will then kill 



the /CMD file that you sent me. Jesse Bob Overholt (of TAS) 
says that getting into the SU+ patch business is a mistake. I'm 
not so sure, but if I find that I just can't keep up, your requests 
may simply go unanswered. If you want to discuss SU+ (good 
points, bad point, idiosyncracies, patches, protection scheme (yes, 
I'm quite well versed on it),) then call me or write me. My name is 
Paul Snively and I live (for the moment, anyway) at 
Ashtan-Hershey 12, Indiana University, Bloomingtan, Indiana 
47405 - telephone (812) 337-1570. I can't accept collect calls on 
the university phone system, so don't bother. 

MODEL 100 ASSEMBLY LANGUAGE FILE TRANSFER 
PROGRAM by Gordon MacSwain - This program should be of 
considerable interest to those of you that own (or have access to) 
both a Model 100 and a Model I/III/4, and that program in 
assembly language. As is becoming typical in NORTHERN BYTES, 
the documentation (such as it is) is in remark statements within 
the program itself. Note that Gordon's phone number and address 
(except for his postal code, which is MIT 2B3) are in lines 7-9, in 
case you have questions or comments about the program. Here's 
the listing, all ready for you to type into your Model 100! 

'##»«* COCOPY.BA **»*• Feb 25/84 

1 ' 80 MICRO (Jan '84, P171) has a COM/CMD program that enables 

2 ' transfer of TRS80 Model 100 files, to or from Models 1/3/4 

3 ' for disk storage. 

4 ' Unfortunately, the Model 100 ROM does not provide for the 

5 ' saving or loading of ".CO" (assembly lang.) files via the 

6 ' com port, as it does for \BA" & ".DO". "COCOPY.BA" gives 

7 ' you that capability. MacSwain Enterprises 

8 ' 151 Cass Ave, Agincourt, Ontario 
9 ' (416) 291-7673 <72155,1461> 
10CLS;PRINTiPRINTTAB(10)}CHR*(27)+"p"P*»*»* COCOPY »*»# 
•" $CHR»(27H"q" 

20 PRINTTAB(10>;CHR*(27>t"p"!"macswain enterprises*!CHR»(27H 

"q"!PRINT!UNE(57^)-(181,25),l,B!LniE(60,7W179,7>!LrNE(59,7>-( 

59,23) 

30 PRINTTAB(8)}"<S>ave or <Doad CO File"? 

40K*-INKEY*!IFK*=*L"ORK«-"l"THEN180ELSEIFK*-"S"ORK$**s 

■THEN50ELSEIFK*«»CHR«(27)THENMENUELSE40 

50 Z~63930!PRINT!PRINTTAB(3)rOn Model 1/3 Run! 'COM I FILER 

AME'"!INPUT"Then Enter CO Filename (No Ext)"}A$ 

60 FORX-0TO198STEP11 

70 D?0?EEK(X+Z)AND160M60THEHGQSUB100 

80NEXTX 

90 PRINTTAB(13)5"FILE NOT FOUND"J!FORW»lTO500aiEXTW!GO 

TO10 

100B»-""!A»LEN(A*)!FORY-lTOA!B»-B»+CHR»(PEEK<X+Z+2+Ym 

NEXTY 

1 10 IFA«OB»THENRETURN 

120 IFA<6ANDFEEK(X+Z+2+Y)032THENRETURN 

130 B=(PEEK(X+Z+2)»256>+PEEK(X+Z+l> 

140H*-"0123456789ABCDEF"!OFEN"COM!98E1E"FOHOUTFUTAS1 

150 X*6«-(PEEKCB+3)*256HPEEK03+2> 

160 FORY*0TOX-l !G=G+1 !Ci=""!C*«C»+MID*(H«,(0?EEK(B+Y)AND 

240)/16Hl,lHMID«(H*,(PEEK(B+Y)AND15Hl,l)!PRINT#l,C*!!IFG» 

16THENPRINT*1,","«G»0!NEXTY!ELSENEXTY 

170 PRINT*l,CHR»(26)!CLOSEr.PRINTTAB«3)!"FILE SAVED'JiFO 

RW-1TO5005NEXTK3OTO10 

180 PRINT!PRINTTAB(3)!"On Model 1/3 Run! 'COM O FILENAME" 

190 OPEN"COM!98E1E"FORMFUTAS1 

200 INPUT* i,B* 

210 Ht*"BCDEF"!R-LEN(B*> 

220X»1!GOSUB300!LD«A*16+B!X-3!GOSUB300!LD-((A*16+B)»256) 

+LD*PRINT"START "!LD 
23o'x-5iGOSUB300!LN-A*16+B!X-7:GOSUB300!LN«((A*16+B)»256) 

+LN!PRINT"LENGTH"5LN 

240 X"9iGOSUB300!ST*A*16+BiX*l 1!GOSUB300!ST«((A«16+B>*256 

>+st:ppjnt"entry "jst 

250 INPUT"Create CO Filename (No ExtVJF* 
260Z=LD!FORX=13TORSTEP2!GOSUB3O0!POKEZ^»16+B!Z»Z*l!NE 

XTX 

270 INPUTtl ,E*!R=LEN(B«)!FORX=lTORSTEP2!(3OSUB300!POKEZ, 

A*16+B!Z-Z+1!NEXTX 

280 IFEOF(1)THEN290ELSE270 

290 PRINTTAB(14)!"FILE CREATED"!SAVEMF*,LD,LD+LN-1,ST:E 

ND 
300IFMID»(B*,X,l»"9"THENA-10+INSTR(H*,MID»(Bt,X,l))ELSEA 

-VAL(MID»(B»,X,1)> 

310 IFMID*(B*,X+1 ,1)>"9"THENB-10+INSTR(H$^ID$03«,X+1,1))!R 

ETURNELSEB=VAL(MID*(B*,X+1,1))!RETURN 
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«M^TO»|pXpyJJ*y?, ( lo«er - * "*** a couple of 
suggestions for the DosPlus user who has one or more of his 
drives configured as single sided. 

A single VOLUME drive is a double-headed drive addressed 
as one drive. For example* you can run four double-headed drives 
on a Model III, if they are configured as single volume, each set 
of heads is ONE drive. 

This is great, unless you want to back up a single VOLUME 
diskette to a single SIDED diskette. This can be a real pain in 
the neck! Copying each file, keeping track on paper of what you 
copy. Whether you copy file by file, or use Super Utility you still 
have to sit there and manually keep track of what copies until you 
fill each single SIDED diskette. Unless you let DosPlus work for 
you. 

Using the KILL parameter and the wildmask copy DosPlus 
will copy all the files, killing each one as it copies, Once you fill 
up a diskette put a fresh one in and keep copying till you run out 
of files to copy, 

1) Create a backup of the original diskette. Work with the 
backup, in case anything goes wrong. You'll need two or three 
single SIDED data diskettes. 

2) Be sure your configuration table is set up properly for the 
drives containing the different diskettes. 

3) Use a wildmask copy and specify the KILL and the ECHO 
parameters. Here we are copying from drive SI (the single 
VOLUME) to drive !2 (the single SIDED). 

COPT !!1 J2 (ECHO,Kn.L) 

4) DosPlus will copy files until it runs out of room. Kill the 
last file echoed on the screen, because it was not copied 
completely. Switch data diskettes and once again! 

COPY !!1 XI (KILL,ECHO) 

If necessary do this again until all the files are copied to 
single sided diskettes. I have found that it may take as many as 
3 single sided diskettes to contain all the files on one double 
sided diskette, 

My second suggestion also concerns single and double sided 
diskettes. The quickest way to trash a diskette beyond repair is 
have the SDDES parameter set wrong. Normally I have a SYSTEM 
file to take care of this, BUT Just in case I forget, or it doesn't 
get loaded I have the cursor on all my unconfigured diskettes set 
to ASCII 196 (the smiley face on the Model III), If I see the 
smiley face I know that I haven't loaded a SYSTEM file and that 
only my first drive (if even that one) is set for SIDES=2. 

WHY ALIGN ?? by Dave Bower - There are three times in 
the life of a disk drive when an alignment should be performed. 
One, is when it is brand new and before diskette one is run 
through it} two, is the FIRST time errors appear during disk I/O 
and three is at 6 month intervals. 

The most overlooked drive alignment is the first one by the 
new owner, It is generally assumed (often incorrectly) that a new 
drive is in top condition and aligned to perfection. The initial 
alignment will accomplish three things. It ensures that the drive 
is in working order. It can also flush out any intermittent 
problems lurking inside that will become serious the day after the 
warranty expires, Secondly, it will ensure that your drive is 
properly aligned, and if your drives are aligned by the same 
service, you will have no problem with compatibility with other 
drives in your system. Third, and most important, it sets a 
standard by which all your diskettes will be written. If, on the 
other hand, you put off your first alignment until CRC errors 
become unbearable you will probably have trouble reading 
diskettes previously made by the drive. 

Unscheduled alignments should be made as soon as you 
suspect ANY alignment problem whatsoever. Any drive will 
usually read what it writes no matter what the state of alignment, 
that is until it is properly aligned again, and then all the data laid 
down by the misaligned drive is lost. If you put off alignment of 
a drive until the last possible minute then first back-up all your 
diskettes made with the bad drive to a known good drive. 

After you've brought your drives up to the proper state of 
performance the next step is to keep them there. You do this by 
having the drive aligned twice a year. This not only provides the 
obvious, but can prevent or highlight problems before they become 
serious, A thorough cleaning will help protect your head, 
mechanical parts and diskettes, The repair service will be aware 
of any service changes or modifications put out by the 
manufacturer of your drive. If you use the same repair service he 
will have a history file of your individual drives and can use this 
to spot potential problem areas. And a history of preventive 
maintenance will be helpful should you decide to sell your drives. 



In the end you are going to have to decide for yourself what 
kind of maintenance schedule you need. Just remember the 
difference between scheduled and unscheduled maintenance! 
scheduled maintenance is performed at your convenience, 
unscheduled maintenance is performed at the worst possible time, 

GREMLINS ON THE POWER LINE by Dave Bower - I used to 
have a buddy who wore a lucky medallion that he swore kept 
gremlins away. Now we were about 7 years old and didn't like 
monsters, but he was especially terrified of gremlins. I don't 
think I ever saw him without his lucky medallion. I used to think 
he was crazy. But, come to think of it, I never saw any gremlins 
when he was around. Maybe it worked! 

I guess we've all got our fears, I'm afraid of voltage 
surges. That's why I've got my lucky Radio Shack power filter 
hooked up to my computer at all times. Is there any noticeable 
difference? I dunno. I've never run the computer without it. But 
I haven't seen any surges (or gremlins) since I've had it. 

What's a surge? I dunno. I've never seen one. That is, until 
recently. I haven't seen one, but I have learned what one is. 

Actually the problem most computerists fear is transients on 
their power lines. These are very fast transverse-mode (between 
neutral and hot) changes in the voltage, called spikes and surges. 

A SPIKE is defined as a sudden disturbance of 6,000 volts or 
greater lasting less than 100 microseconds. In some case spikes 
can cause transistors to fail and erasure of solid state memory. 
Components continually subjected to spikes will suffer from a 
shortened life span, A SURGE is a burst of 3,000 volts lasting 
longer than 100 microseconds. 

You can expect more than 100 such spikes and surges each 
month, And you will probably get a surge of at least 1,000 volts 
at least once a day. In fact, spikes and surges account of 88.5% 
of all disturbances. 

Like I said, I've never had any problems with power-line 
fluctuations, but I've never run my system without a power-line 
filter, If you're having problems with your system, this might be 
a good place to start looking. 

(The information for this article was taken from "Power Line 
Protection", an article by Douglas Pryor and Amy Smith in the 
December 1983 BUSINESS COMPUTER SYSTEMS) 

THE WORLD'S MOST EXPENSIVE SYNTAX ERROR is 
excerpted from an article by Bob Gardner, that originally 
appeared in BUSS-LINE (newsletter of the Central Florida 
Computer Society, Inc.)! 

No, I didn't make the world's most expensive syntax error, 
but I learned what it was recently when I attended the Air Force 
conference on Technology in Training and Education at Sheppard 
AFB in beautiful downtown Wichita Falls, Texas, During a 
tutorial session on ADA (ADAptability, reADAbility) given by 
Major Richard Boll, formerly of the Air Force Academy, we who 
claimed to have programmed FORTRAN were asked to explain how 
the following code fragment would work! 

DO 10 1-1.3 



10 



CONTINUE 



We said it would execute the code body three times. But 
noooooo... that's 1,3 - not 1.3! So somebody said it might truncate 
1.3 to 1 and execute the code body once, but that's not it either, 

It assigns 1.3 to a weird variable called DO10I (FORTRAN 
ignores spaces), executes the code body once, ignores the spurious 
CONTINUE statement, and continues merrily on. Major Bolz said 
he had been accused of inventing this example to reinforce the 
case for strongly typed languages like ADA, but he said that this 
example was the syntax error that lost one of the Venus probes a 
few years back! 
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COLOUR COMPUTER WOES is reprinted from the Adelaide 
(Australia) Micro-User News! 

The limited number of colours available in the high 
resolution mode has prompted American software writers to 
increasingly use 'false' colours that can be achieved with the 
American NTSC TV system, These same inter f erence effects do 
not occur with the European (& Australian) PAL system. This 
means those extra colours turn into a blur of grey lines. If Tandy 
wants to lose customers to Commodore they will continue to 
demonstrate the likes of CANYON CLIMBER <b.». awful!!), If this 
is a trend for future software and no PAL versions appear then 
it's a gift to Commodore and Dickie, 



ZAPDEBUG, - <c> 1983 Tony Domigan, P.O. Box 150, 
Thomastown, Victoria, Australia, 3074. 

ZAPDEBUG evolved from the need to modify TRSDOS 1.3B 
sectors when there was no satisfactory utility available. The 
program patches the RST function so that DEBUG can be loaded 
without executing. Once loaded, DEBUG's T' command is patched, 
the RST function is fixed and DEBUG is executed. 

When the 'F'ilespec option is selected, if a drivespec is 
entered in place of a filespec then ZAPDEBUG takes over. To use 
ZAPDEBUG, therefore, you need to enter 'F' and answer the 
Filespec prompt with the drivespec of your choice e.g. '0'. You 
will then be prompted for the sector number you require (in 
Hexadecimal) e.g. 132, and it will be read into the buffer at 
4300H. Once in the buffer you can modify the sector as in normal 
DEBUG, and when the ENTER key is hit the buffer will be written 
to the disk. 

Hitting the BREAK key returns you to the FILESPEC prompt. 
You can then enter a drivespec or filespec or if you wish, hit the 
BREAK key again and you will return to normal DEBUG (in place 
of DOS). 

[The source code for ZAPDEBUG follows:] 



7101 

7000 210E7I 
7003 3EC3 
7005 32CD1B 
7098 22CE* 
7IW3E85 
7MDEF 
700E3ECD 
7111 212C7I 
7113 32137. 
7016 22E152 

7019 3E22 
701B 21D7* 
701E32CM8 
7021 22CE* 
7021 3EE2 
7024 32D752 
7029 C350* 

702CIA 

7020 FEM 
702F33M 
7031 CD2W 
7031 C9 

7033 E5 

7034 D630 
7038 329*70 
703B 21X70 
703ECD1B02 
7M1 C01FS2 
79H7D 
7H5 328E70 
701B7C 
7H9 328F70 
70« 218170 
70*113355 
70SZ 012F0O 

7035 0160 



7057 El 

7058* 

7059(31233 

705C0A 

7050 « 

4E7145 
65 72 20 
78 29 20 

7083 03 
708180 
7085 00 

7084 00 
7087 0013 



00001 ) 

00002 ! 

00003 ; 

00001 ! 
00895 i 
00004 
00007 STMT 

ooon 

00009 
00010 
00011 

00012 

00013 RSTART 

0(011 

00015 

0(014 

00017 

00018 

00019 

00920 

oe92i Finer 

00022 
00923 

00021 ; 

(0025 mm 

00(24 

00027 

00028 

00(29 

09030 ! 

0(031 YES 

00032 

00033 

0(031 

00135 

00134 

00137 

0(038 

00(39 

00M0 

uMiwra 

0OH2 

09M3 

OOW 

00115 [ 

f0H4GOWn 

00(47 

((MB 

00(49 H3G 

09030 

72 20 53 45 

74 4F20 5A 

3A20 

00151 

00052 FC8 

0M53FC81 

09051 

00055 FCB3 



ZAPDEBUG 

(c) 1983 Tans Donisan 
PO Box 150, ThoHstown, 
Victoria, Australia, 3071. 



ORG 

LD 

LD 

LO 

LD 

LD 

RST 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LO 

LD 

JP 

LD 
CP 

JR 

CALL 

RET 

PUSH 

SUB 

LD 

LD 

CALL 

call 

LD 
LD 
LD 
LD 
LD 
ID 
LD 
LDIR 

FOP 
XOR 
JP 

DEFB 
OEFH 



7000H 

HL.RSTART 

A.0C3H 

<«CDH),A 

HBCBO.HL 

A,85H 

28H 

A,(C0H 

HLJIYOC 

(52E(H),A 

(52E1H),HL 

A.2ZH 

H.,«D7H 

(«XH),A 

(«GEH),HL 

A.0EZH 

<52D7H),A 

COOH 

A,(DE) 
3* 
C,YES 
H2« 



HL 

30H 

(FCB4),A 

tL»HS6 

021BH 

521FH 

A,L 

(FDMOJ.A 

A,H 

(FCB10tl),A 

HL.FCB 

DE,5555H 

BCI02FH 



{Hy Patch Address 

;»jp 

{Patch RST with JP 

[to RSTART 

!« Overlay 5 (DEBUG) 

[Load DEBUG 

}»CALL 

SHy pre-proceisinq 

[Patch 'Open Filespec' 

{Rout* torn check 

[Re-patch RST function 



[RST nowNorMl 
{Patch JP2D0S with.. 
(JP to Zapdebug 
[Execute DEBUG 

[DE »> Filespec 

[OX for Drives to 3 

[Jump if Yes 

;Zai> not rend - Open File 

{DEBUG take over 



{Convert Drive to Binary 
{Post Drive No. to FC8 
{Point to Sector Promt 
{Display Hsg 
[DEBUG Hex Input Rtne 

{LSB of Sector to FCB 

[H9B of Sector to FC8 
[Source * Ky FCB 
{Dest, = DEBUG FCB 
{Length of FCB 
{Hove it all 



HL 

A 

5312H 

uu 

'Enter Sector Nurter to Zap (in Hex) 



[Sets Z Fla* (no error) 
[Let Debug Take Over 



43 714F722K754D42 
61 7( 21 28 49 4E 2( 18 65 



03H 

80H 



DEFB 

DEFB 

DEFB 00H 

DEFB 00H 

DEFH 1300H 



7(89(0 

708A00 
708B 0000 
708DOO 
708E (000 

7090 D002 
7092 0000 

7091 HIE 
7(94 051E 
7098 091E 
709A0F1E 
709C HIE 
709E 191E 
70AO 1E1E 
70A2 231E 
70A1FFFF 
70A4FFFF 
70ABFFFF 
70AAFFFF 
70AC FFFF 
7000 
(0000 TOTAL 

FCB 7081 

FCB18 7094 

FCB28 70A0 

FCB34 70A8 

CODOIT 7057 

START 7000 



00(54 
00(57 
00158 
00(59 

00140 
00(41 
00842 
00(43 
00(61 
00(65 
00866 
00047 
00068 
00(69 
(((70 
(((71 
(((72 
(((73 
(((71 
(0675 
00(76 
ERRORS 



FCB4 



FCB10 
FCB12 

FCB14 
FC818 
FCB20 
FCB22 
FC821 
FCBZ4 
FCB28 
FCB30 
FCB32 
FCB31 
FCB34 
FXB38 
FC810 



DEFB 
DEFB 
DEFH 
DEFB 
DEFH 
DEFH 
DEFH 
DEFH 
DEFH 
DEFH 
DEFH 
DEFH 
DEFH 
DEFH 
DEFH 
DEFH 
DEFH 
DEFH 
DEFH 
OEFH 
END 



00H 
(OH 
OOOOH 

00H 
OOOOH 

02D0H 
(((OH 

1E00H 

1E05H 

1E09H 

1E0FH 

1EMH 

1E19H 

1E1EH 

1E23H 

0FFFFH 

0FFFFH 

OFFFFH 

OFFFFH 

OFFFFH 

START 



[Drive Rwber 



{Start Relative sector No 
{Hex relative nctoi*720D 

[(1 - First Extent 

[02 

{03 

id 

[05 

{04 

{07 

{08 

[10 

{11 

[12 

[13 

JH 



FCB1 7085 

FC820 7098 

FCB3 7087 

FCB3B 70AA 

ttSG 705C 

YES 7035 



FCB10 708E FCB12 7191 FCB16 7091 

FCB22 709A FCB21 709C FCB2* 709E 

FCBM 7IA2 FC832 70M FCB31 70A4 

FCM0 70AC FCB6 708A FD8ET 7(21 

hVFCB 70* HYOX 702C RSTART 700E 



{Read-Only file is i 
{Full Sector I/O 

{254 byte buffer 
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BOB BRUMLEY'S HACKER HINTS - These were gleaned from 
a phone conversation with Bob Brumley at Software Success in 

Windsor, California; ,.__.. 

Would you like your Model I video display to be as sharp as 
Model 4 display? Bob says that a Model 4 video board can be used 
in the Model I monitor. You do have to get the horizontal and 
vertical sync signals from the Model I keyboard unit to the 
monitor, but this is made easier by the fact that the five pin DIM 
connector used for video output has a couple of unused pins that 
can be appropriated for the purpose. In addition, there s a Wan* 
space on the Model 4 video board that is large enough to be 
drilled out for an LM383 audio amplifier IC, so if you add one of 
those and a speaker inside the monitor cabinet, you can have 

built-in sound. , 

You say that one's beyond your capabilities? Well, nere s 
another. Perhaps you've wanted to add the reverse video arant 
from Dennis Kitsi's book, "The Custom TRS-8Q-, to your Model I, 
but you have a Holmes Engineering SPRINTER installed and they 
both use port 254 (OFEH) for control. The actual conflict is at 
data line 1 of port 254, which is already "cessed by the 
SPRINTER. No problem, just use data line 4 instead I of line 1. To 
do this, move the reverse video connection from E? pin J ™ »? 
oin 2 (or any other convenient connection to data line 4). Now port 
254 can be used to set both the SPRINTER and M»J2™£*5 
at the same time - just use the normal valuesto set SPRINTER 
speed and normal video, or the normal SPRINTER values + 16 to 
set SPRINTER speed and reverse video. By the way, ** notM 
that your memory must be rated at 150 ns or better (120 ns is 
preferable) to run the SPRINTER at 5.3 MHz without unexpected 

^Tpparently, the program stored in the PAL chip in the j Model 
4 defines the maximum amount of memory that can beused In that 
Model. Bob says he heard of one guy that programmed his own 
PAL, and now has a Model 4 with 512K of memory! 

Bob is working on a book entitled -NEWDOS/80 Decoded" J ttt 
will have a format similar to -Microsoft BASIC Decoded , 
including commented disassemblies of the NEWDOS/80 /SYS 
modules), but in addition, he will show you how to add some 
additional features to that DOS. If you've ever said, I like 
NEWDOS/80, but I wish it had this feature...", you might drop a 
line to Bob and let him know of your interest (send us *"!*»>"» 
at NORTHERN BYTES, maybe we'll build our o wn "w ish list J. 
Perhaps Bob will figure out a way to add the DOS eon ^ d ° f l your 
dreams. Write to Bob Brumley, Software Success, 8522 Aldan 
Lane, Windsor, California 95492, 

MODEL 100 HINT (as reported by Ken Ashley of OCTUG in 

When uploading Model 100 document files to another 
computer, precede the text with an 'at' sign (Q). This will prevent 
the first three characters from being lost upon transmission. The 
@ is not transferred. 



DETERMINING THE DOUBLER IN USE ON A TRS-80 MODEL 
I by Paul Snively - First, there are only two kinds of doubters: 
Radio Shack's, and everybody else's. So. with that thought in 
mind, here is a subroutine that determines what kind of doubter a 
Model I has: 



LD 


IY.37ECH 


LD 


DE.80A0H 


LD 


HL,(37EDH) 


LD 


(IY+2),D 


LD 


(IY+D.D 


LD 


(IY+2>,E 


LD 


<IY+1),1 


LD 


<IY+2),D 


LD 


A,<IY+1) 


LD 


(IY+2),E 


LD 


<37EDH),HL 


DEC 


A 


RET 





If the zero flag is set upon returning from this routine, the 
doubter is a non-Radio Shack (Pereom, Aerocomp. etc.). otherwise 
it's a Radio Shack doubter. Neat, huh? 

Actually, there's one hitch. If the zero flag is set, it's 
either a non Shack doubter or else there's NO DOUBLER AT ALL! 
So. if it's necessary to know if there's even a doubler, it'll take 
more code. If you need the extra code, let me know and I'll write 
it for you (I've never needed it, so I've never written it). 

Mj^lKQR.WkJIA^CJIi^provided by Paul Snively - If 
you're still using version 1.6 for the Model I (as opposed to 
version 1.6a, which fixes this problem), here's a patch that 
eliminates Vern's keyboard debounce routine (and also eliminates 
"lost" keystrokes)! 

If you're using single density, the track/sector is 1/6. If 
you're using double, the track/sector is 1/8. If you're using P 
density, the track/sector is 1/14. In any case, use ZAP/CMD (or 
SU+, etc.) and change relative byte 6E (all densities) from: Fl A6 
C8 21 to! Fl 00 00 21 

There you go. While I'm at it. here are some other 1,6 zaps 
(all courtesy of the February, 1983 MULTIDOS newsletter!!) 

If your ZAP/CMD is version 1.2 or 1.3, then apply the 
appropriate following zap: 

If version 1.2! Relative file sector 2, relative byte 14B 
change! 20 40 E5 DD E5 CD toS 20 40 D9 DD E5 CD and relative 
byte 4EH change! El El E6 5F to! El D9 E6 5F 

If version 1.3! Relative file sector 2, relative byte 16H 
change: 20 40 E5 DD E5 CD to! 20 40 D9 DD E5 CD and relative 
byte 50H change! El El E6 5F to: El D9 E6 5F. 

Single density Track/Sector 0/9. Double density 1/1, P 
density 0/7. Relative byte DEH for all densities. Change 00 B7 
20 to 00 AF 20. This zap is optional, and allows for a one second 
delay on read. This is accessary if your drives have trouble 
coming up to speed quickly when selected. 

Here's a neat one! Single density 0/7, Double density 0/9, P 
density 0/3. Relative byte! 19H. Change 3E 00 D3 FF to 
3E ub D3 up. "up" is a user defined port, and ub is a user defined 
byte. This allows the user to make MULTIDOS turn certain 
hardware mods on on boot-up. Vern, of course, uses this feature 
to turn his high-speed dock on (and so, for that matter, do I.) 
Neat, huh? 

Another good one! All densities, track 17, sector 0. Yes, 
this is the GAT sector, but as you may have noticed from time to 
time, there's PLENTY of room for other things besides the GAT 
information. Well, Vern puts several system configuration 
parameters there. On 1.6, Vern didn't allow you to choose how 
many retries MULTIDOS would make on an error before it actually 
reported the error (this capability has been added to the CONFIG 
command on 1.6a). So, to set the number of retries, look at 
relative byte C4H. If the value is a 04, take the number of retries 
you want, subtract one from it, and put it here. For example, ten 
retries minus one is nine, so zap a 09H at relative byte C4H. 
However, if the byte is a 05, simply zap the number of retries you 
want here. So, ten retries means zap a 0AH into relative byte 
C4H. Neat, huh? One thing... the error retries value is limited to 
5 bits. So, the maximum number of retries is 31 decimal (1FH). 

In the weird filenames dept.... Ever wish that you could 
enter lowercase filenames and KEEP them lowercase? How about 
GRAPHICS filenames? (Great for security...) Or numbers as the 
first character in a filename? What about characters like >, ?, Q, 
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!, », #, «, \, ft, and <? MULTIDOS can do it! The remaining three 
bits of relative byte C4H on 17/0 are the key. If you want 
lowercase left as such, graphics, and the >, ?, and 9 symbols to be 
valid in filenames, set bit 7. If you want to allow numbers as the 
first character, set bit 6. If you want the symbols !, ", #, *» V &» 
and < to be valid in filenames, set bit 5. 

- MODEL 4P BOOT MODE KEY SELECTION is reprinted from 
the Marin County TRS-80 Users Group MCTUG) Newsletter! 

Whether the Model 4P boots in the Model III or Model 4 mode 
depends on the key sequence used during the boot. Pressing one 
of several keys will select a different mode of operation. The 
selected keys should be held until the boot sequence is complete. 
NEVER USE THE <SHIFT>, <CAPS>, OR <CTRL> KEYS DURING A 
BOOT SEQUENCE. 

NO KEYS PRESSED — Model 4P boots in the Model III mode. 
The Model III ROM image must be on the disk, 

<F1> KEY PRESSED — Boot from hard disk. 

<F2> KEY PRESSED — Boot from floppy disk only. 

<F3> KEY PRESSED — Boot in the Model in mode. 

<L> KEY PRESSED — Load the ROM image even if it has 
already been loaded. This mode is used to force the Model 4P to 
load the ROM image in case it has been damaged inside the Model 
4P. 

<N> KEY PRESSED — Indicates to the Model 4P that it is 
not to boot the ROM image. Use this mode to boot TRSDOS 6.1. 

<P> KEY PRESSED — Prompts user to switch disks after 
booting the Model III ROM image. This mode can be used to run 
previous Model III application diskettes that do not contain the 
ROM image. At the prompt press <BREAK> to run Model III ROM 
BASIC, press <ENTER> to load and run a Disk Operating System. 

CTHE FOLLOWMG THREE MODES DO NOT APPEAR IN THE 
MODEL 4P OWNER'S MANUAL!: 

* <V> KEY PRESSED — Prints ROM version on screen. Does 
NOT boot a disk. 

* <«> KEY PRESSED — Performs a dynamic RAM test. Runs 
continuously until RESET pressed. 

4 <8HIFTXBREAK> KEYS PRESSED — Boot from RS232. Acts 
like Network in boot ROM. 

A GREEN CRT FOR YOUR TRS-80 - Here's a portion of a 
letter I received recently, that may be of interest to those of us 
with black-and-white CRT's! 

"Down at the local RS Computer Center, the tech has a couple 
of green screens in stock. I think they are the CRT's that go in 
the Model 12/16, but the tech says they will work in the Model 
2/3. She says (yes, "she") that they cost about $40, and slapping 
them in wouldn't cost too much more, especially in conjunction 
with, say, a disk drive alignment and cleaning. 

"Now I don't know if this is 'official' or not, or whether it 
can get her into trouble, or if she can get green CRT's for the 
Model 4P. But it is something that might be helpful. Just go and 
see if the local tech has them." 

(signed) Merrill Cook 
I suspect that Merrill may have meant to say that the 12/16 
screens would work in the Models in or 4, since he mentions the 
4P, but in any event the local technician should know what will 
work and what won't. If anyone else knows of another 
inexpensive way to get a green (or amber) CRT for the Models I, 
III, or 4 (or 4P), why not write and let us know (after all, for some 
of us the nearest Radio Shack Computer Center is a couple of 
hundred miles away!). 

' T.SSBR5 i*3B PATCHES, by Tony Domigan - This is a series 
of short patches to TRSDOS 1.3b to install the 'R'epeat Dos 
Command function similar to NEWDOS/80 version 2*. 

PATCH *1 (ADD=4E36,FIND=2642013F0O36O0,CHG=8O4l013F0O00O0> 
PATCH *1 <ADD=5191,FIND=4D4153544552,CHG*522020202020> 
PATCH *9 (ADD=603E,FIND=CD8E5FFE0D2O03,CHG=218041 11254201) 
PATCH *9 <ADD=6045,FIND=AF1829111060CD,CHG-2500EDB0212542> 
PATCH »9 (ADD=604C,FIND=5444C2,CHG=C39942) 

REAL-TIME CLOCK FOR THE TRS-80 - I had wondered how 
hard it would be to build one of these. Well, according to Michael 
Davis (13816 Paseo Zaldivar, San Diego, California 92129), an 
article on this very subject (under the title, "Fail-S*fe, Real-Time 
Clock for TRS-80) appeared in the December, 1983 issue of 
Computers & Electronics (formerly Popular Electronics) magazine. 
The project used an OKI Semiconductor MSM5832RS dock IC. Mike 
says he believes the article was written for the Model I, but could 
be easily adapted for use with the Model HI (Mike says that will 
be his next hardware project!). 



DEFEATING CALL WAITING - If you use a MODEM for 
telecommunications i you may have been told that you cannot have 
the Call Waiting service offered by the phone company. Call 
Waiting is a service that permits you to receive a call when your 
line is already busy. If you are talking to someone on the phone, 
and someone tries to call you, you will be momentarily 
disconnected from your first conversation and connected to a 
"beep" tone. The person on the other end will hear a moment of 
dead silence (as if you had depressed your phone switchhook for 
about half a second). Note that the Call Waiting tone is NOT 
superimposed upon the conversation in progress, rather, the 
existing connection is momentarily interrupted while the Call 
Waiting tone is online. You then have the option to hang up, in 
which case the original connection will be broken, your phone will 
ring, and you can answer the second call, OR you can switch 
between calls by momentarily depressing the switchhook - one 
caller will be on "hold", and you can talk to the other. 

This service works reasonably well on voice circuits, but 
when a phone line is used for both voice and data, some problems 
arise. For one thing, when a MODEM is in use, it is usually not 
possible to hear the Call Waiting beep tone, thus a second caller 
would probably never be answered, and might incorrectly conclude 
that no one is at home. However, in some circumstances, the 
momentary interruption of the circuit may cause one or both of the 
MODEMs in use to drop carrier and disconnect, or at very least 
may garble the data being transmitted. If a commercial service or 
a Bulletin Board System is being accessed, the momentary carrier 
loss will almost always cause a disconnect (and if you are paying 
for the service, you may incur an extra charge because you didn't 
terminate the call properly). 

Unfortunately, many of us can't afford to have a separate 
phone line for our computer, so the question is, how do we defeat 
Call Waiting while our computer is using the phone? You may have 
been told that it's impossible (especially if you asked someone at 
the phone company), but that's not so. However, you must have 
one additional "Custom Calling" service - either Call Forwarding 
or Three Way Calling - for this to work. 

Before I describe the methods, I'll just state that the reason 
they work is that no matter how many "Custom Calling" features 
you have, your line will only handle a maximum of two calls at 
once. In other words, if you have two outgoing calls in progress 
on Three Way Calling, an incoming call will receive a busy signal 
even though you also have Call Waiting. 

The easiest method involves using Call Forwarding, 
providing you can find a "permanently busy" number in your area. 
Most exchanges have one or more numbers that ALWAYS return a 
busy signal (in Michigan, for example, numbers ending in "9999" 
are often permanently busy). If you have friends in the phone 
company, they may be able to give you a permanently busy number. 
All you do is to set up Call Forwarding to forward all your 
incoming calls to that number. Callers receive a busy signal, and 
your line is not interrupted by Call Waiting. In some areas, you 
may be able to Call Forward calls to your own number, which would 
have the same, effect (busy signal) , or (less desirable) to a 
number that you are absolutely sure will never answer - perhaps a 
business you know is closed (this would give callers a ringing 
signal). Or, you could even forward calls to a friend, who could 
explain to callers that you're using your MODEM, and either take 
messages or ask callers to phone back later. Once you're through 
with your MODEM calls, be sure to cancel the Call Forwarding! 

If you have Three Way Calling, you can place a call to a 
"permanently busy" or "permanently no answer" number, then 
press the switchhook momentarily to get the second dial tone, and 
then dial the number you want to call with your computer. The 
problem with this is that some phone companies have "timeouts" 
that will automatically disconnect a line that has been connected 
to a busy signal or no answer for a given amount of time. When 
the number disconnects, it will momentarily interrupt your 
MODEM connection - the very condition you're trying to avoid! 
So, it may pay to experiment with a few numbers to see which will 
time out, and which won't. For example, it may be that on your 
exchange, busy signals will time out but "invalid number" 
recordings won't. Try dialing a local call with a "1" in front of it, 
and see if you get a recording telling you not to dial the "1" (or 
try the opposite-a long distance call with no "1"). That may get 
you a recording that will not time out. 

When you use the Three Way Calling method, there is an 
additional disadvantage in that if your MODEM call is busy or 
does not answer, you will have to set everything up again next' 
time you try the call. In contrast, Call Forwarding remains 
enabled until you specifically disable it. 



You may find it advantageous to have BOTH Call Forwarding 
and Three Way Calling, This way, if someone calls YOU and wants 
to upload something to you (or you want to download to him), you 
can first excuse yourself, go onto Three Way Calling, and program 
your Call Forwarding from there, so that you won't be interrupted. 
Otherwise, you would have no way to set up Call Forwarding once 
a call is already in progress. 

Of course, by the time you have Call Waiting, Call 
Forwarding, and Three-Way Calling, you'll be paving a pretty 
hefty monthly charge to the phone company. So you may find that 
getting rid of the Call Waiting is an attractive alternative. Or, 
perhaps you can limit your MODEM calls to after midnight, when 
no one in their right mind would be calling you anyway (of course, 
you may know a few folks that aren't in their right mind, or maybe 
you have a reputation as a night owl, like most computer hackers). 

Please note - the above methods of defeating Call Waiting 
are suggestions only. I assume no responsibility if your phone 
company gets mad at you for actually using one of them. 
HOWEVER, if they DO complain, you might suggest to them that if 
they are going to sell such a service, they might consider 
providing a way (maybe a one or two digit code) that people can 
temporarily disable it, so that important calls would not be 
interrupted. Even if you're NOT using a MODEM, it is an awful 
nuisance to have a long distance call constantly interrupted by 
Call Waiting - which is probably one reason the feature isn't more 
popular than it is! 

MAINTENANCE TIPS by Dave Owen is reprinted from Micro 
Info Exchange! 

In my work as a technician, I have encountered a number of 
Model Ills whose Drive would not even boot, let alone run the 
diagnostic software that I normally use to pinpoint problems. I 
decided to let the Floppy Disk Controller (FDC) tell me about its 
problems. The solution (printed below) is a BASIC program that 
can be easily loaded from tape or disk. It is written for the 
Western Digital 1793 FDC chip with port values used by Radio 
Shack's Models III and 4. You are free to use and modify this 
program as you see fit! 

1 'FDCIII/BAS! WESTERN DIGITAL 1793 FLOPPY DISK 
CONTROLLER 

2 'TESTER by Dave Owen, c/o CCS, POB 3032, Camarillo, CA, 

3 '93011. From "Micro Info Exchange" (Cabrillo Computer 

4 'Society Newsletter), August '83, page 5, 

5 'If drive on a Model HI/4 does not boot, run this test, 

6 'It checks the FDC chip — not the disk drives (except to 

7 'learn if they are present and active). 

8 'If the FDC passes this test, then run Floppy Doctor, 

9 'which will extensively exercise the drives themselves 

10 CLS!PRINT"TEST I! Disk Controller Ready Check...Verify 
Status Bit 7 set"JFRINT 

20 OUT 240,208 

30 GOSUB 620 

40 IF ST=255 THEN FRINT'No power applied to disk controller 

chip!" 

50 GOSUB 830 

60 PRINT'TEST 2! Disk Status Checks...Verify Status Bit 2 

set"5PRINT 

70 PRINT" ...DRIVE 0! "JB=129!GOSUB 940 

80 PRINT" ...DRIVE 1 i "JB=130!GOSUB 940 

90 PRINT" ...DRIVE 2! "!B=132JGOSUB 940 

100 PRINT" ...DRIVE 3! "!B=136JGOSUB 940 

110 GOSUB 830 

120 CLS!PRINT"TEST 3! NMI Register Checks...Verify no 

errors"JFRINT 

130 IR=INP(228)SPRINT" ...CONTROLLER! "J 

140 IF IR=62 THEN PRINT"No interrupt— not ready'SGOTO 190 

150 IF IR=126 THEN PRINT"No interrupt— ready'JGOTO 190 

160 IF IR=190 THEN PRINT"Interrupt requested— not 

ready"!GOTO 190 

170 IF IR=254 THEN PRINT"Interrupt requested— ready'JGOTO 

190 

180 PRINT TAB(10)"ERROR— interrupt failure" 

190 PRINT" ...DISK DRIVE 05 "JJOUT 244,129!GOSUB 880 

200 PRINT" ...DISK DRIVE 1! "JJOUT 244,130JGOSUB 880 

210 PRINT" ...DISK DRIVE 2! "JJOUT 244.132JGOSUB 880 

220 PRINT" ...DISK DRIVE 3! "JJOUT 244,136!GOSUB 880 

230 GOSUB 830 

240 PRINT'TEST 4AJ Track Register Checks.. .Verify no 

errors" JPRINT 

250 FOR A = TO 255 
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930 RETURN 
940 OUT 244.B 
950 FOR X=l TO 500 
960 OUT 244.B 
970 NEXT X 
980 OUT 244.B 
990 OUT 240,3 
1000 FOR X=l TO 500 
1010 OUT 244.B 
1020 NEXT X 
1030 GOSUB 620 
1040 RETURN 



260 OUT 241,A:B=INP(241):PRINT@132,"... track -;a 
270 IF AOB PRINT0196,"ERROR TRACK "JA 
280 NEXT A 

290 PRINT032O,"TEST 4B! Sector Register Checks. ..Verify no 
errors"!PRINT 
^500 FOR A=0 TO 255 

OUT 242,A!B=INP<242>!PRINT0452,"...SECTOR "JA 
j IF AOB PRINT@516,"ERROR SECTOR "',k 
330 NEXT A 

340 PRINTQ640,"TEST 4C! Data Register Checks...Verify no 
errors":PRINT 
350 FOR A=0 TO 255 

360 OUT 243,A!B=INP<243)!PRINT@772,"...DATA = "!A 
370 IF AOB FRINT(?836,"ERROR AT DATA VALUE "JA 
380 NEXT A 
390 GOSUB 830 

400 PRINT'TEST 5! Track Seeking Checks...Verify Status Bit 4 
NOT set'JPRINT 

410 PRINT" ...DRIVE 0! "!B=129!GOSUB 470 
420 PRINT" ...DRIVE IS "!B=130!GOSUB 470 
430 PRINT" ...DRIVE 2! "!B=132SGOSUB 470 
440 PRINT" ...DRIVE 3! "!B=136SGOSUB 470 
450 GOSUB 830 
460 GOTO 10 
470 OUT 240.B 
480 OUT 244,3 
490 FOR X=l TO 500 
500 OUT 244.B 
510 NEXT X 
520 OUT 244.B 
530 OUT 241,0 
540 OUT 243,39 
550 OUT 240,23 
560 FOR X*l TO 500 
570 OUT 244.B 
580 NEXT X 
590 OUT 244.B 
600 GOSUB 620 
610 RETURN 
>20 DN-INP(240)!ST=DN 

IF DN-128>=0 THEN DN«DN-128SD7=1 ELSE D7=0 
j IF DN-64>»0 THEN DN=DN-64!D6=1 ELSE D6=0 
650 IF DN-32>-0 THEN DN=DN-32SD5=1 ELSE D5=0 
660 IF DN-16>«0 THEN DN*DN-16!D4=1 ELSE D4=0 
670 IF DN-8>=0 THEN DN=DN-8!D3»1 ELSE D3=0 
680 IF DN-4>=0 THEN DN=DN-4SD2=1 ELSE D2=0 
690 IF DN-2>«0 THEN DN=DN-2SD1=1 ELSE D1=0 
700 IF DN-1>=0 THEN DN=DN-1!D0=1 ELSE D0=0 
710 PRINT TAB<32)"S7 S6 S5 S4 S3 S2 SI SO" 
720 PRINT TAB(10)"FDC STATUS REGISTER 
=";D7{D6)D5!D4}D3JD2!D1;D0: 
730 PRINT" = "(ST 

740 IF D7=l THEN PRINT TABOO)". ..Bit 7 set! 
up to speed'JRETURN 

750 IF D6=l THEN PRINT TAB(10)"...Bit 6 set! 
protected" 

760 IF D5=l THEN PRINT TAB(10)"...Bit 5 set! 
open/No diskette 

770 IF D4=l THEN PRINT TAB(10)"...Bit 4 set: 
not verified" 

780 IF D3=l THEN PRINT TAB(10)"...Bit 3 set! 
field" 

790 IF D2=l THEN PRINT TAB<10)"...Bit 2 set! 
Track 00" 

800 IF Dl=l THEN PRINT TABU0)". 
detected" 

810 IF D0=1 THEN PRINT TAB(IO)". 
system" 
820 RETURN 
830 PRINT 

840 PRINT"*-** Press any key to continue ***" 
850 A«=INKEY*!IF Ai="" THEN 850 
860 PRINTSCLS 
870 RETURN 

"FOR X=l TO 500SNEXT X 

IR=INP(228) 
900 IF IR=126 THEN PRINT"Ready flip-flop set"SGOTO 930 
910 IF IR=254 THEN PRINT'lnterrupt and ready flip-flop 

sef.GOTO 930 . _, r „„ . 

920 PRINT TAB(10)"ERROR! A problem exists—check further 
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QUICK/CHEAP COMPUTER TABLE by John Roy is reprinted 
from the Voice of the '80 Newsletter! 

As it is usually the case, the shoemaker goes without shoes, 
and indeed I still do not have an official computer table. Let me 
try to make a little more sense. I've had my TRS-80 Model I for 
about four years and still have it on a temporary card table, with 
my printer sharing the living room end table. God bless my wife 
for putting up with this condition for so long. Well, now you 
probably have guessed that I finally did something about it before 
divorce court, right? ... Wrong! 

Let me get to the point. My son invested in a TRS-80 Model 
III and brought it to college with him this fall. Starting to see 
the picture now? Since he needed a table for his room, the 
shoemaker came to the rescue. What resulted was the 
QUICK/CHEAP COMPUTER TABLE. 

The object of this table was to use a single sheet of material 
with some simple cuts. Particle board was chosen for his table, 
with a cost under ten dollars. Four large shelf brackets, some 
glue, screws, and nails were the only other items required unless 
paint or stain is desired. The sketch should show very clearly 
just how to make the cuts. Dimensions can be altered easily to 
customize for specific needs. Some key modification areas are the 
shelf heights and quantity of spacers shown as (El) through (E4). 
The shelf width (C) can be widened and the remaining rear support 
(D) piece is not critical. What is not shown, but was added to his 
table, was feet to the base of (Bl) and (B2). This was 
accomplished by grooving a piece of hardwood and gluing. Another 
suggestion, to strengthen the front, is a support similar to (D). 
This should only be necessary if the material or thickness 
selected flexes too much. 

The project can be completed in a few hours, short any 
painting or staining. As for the shoemaker, he has decided the 
wife's patience is nearing its end and will be building his own 

table. 

tVoice of the '80 Editor's Note! The shoemaker s wife 
reports, and I have seen first hand, the finished product cut from 
plywood veneer, Hi-gloss finish applied to it provides a place of 
honor for that dinosaur. I think perhaps that cabinet making, 
rather than engineering, might be an underlying vocational trait 
here.l 
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DANGEROUS BENDS - Once in a while, I read about some 
use for the computer that chills my blood a bit. Longtime readers 
of this publication know that I have long contended that the 
computer is a tool, which can be properly used or misused - 
somewhat like atomic energy. Some examples of computer misuse 
(such as pornographic video games) are fairly obvious> but others 
are more subtle. 

Such, I think, is the case with a suggestion th^t appeared in 
an exchange newsletter that we receive. This publication 
suggests that hypnosis, or "suggestive therapeutics" as it is 
called by some, can be used for behavior modification, anestesia 
(for medical or dental operations), and so on. It states that "the 
problem with hypnosis is that it requires practice and time", and 
that because of this, many professionals that attempt hypnosis 
may have problems and will therefore return to more conventional 
forms of treatment (anesthetics or drugs). 

But help is on the way, suggests this article, in the form of 
. the friendly computer. "There are now programs that will use the 
visual effects of high resolution graphics and sound to induce 
hypnotic states. Since most people respond to suggestion when > 
visual patterns match their alpha brain wave rhythm frequency 
(12-16 cps), selecting the correct frequency, video design, color 
and sound can induce a patient for glove anestesia levels in 90 
seconds. Once you have the correct parameters for each patient, 
they can be preset for rapid induction at each subsequent visit." 
This article is, of course, mostly concerned with medical/dental 
uses, but goes on to suggest any traditional use of hypnosis could 
be aided by the computer. 

The problem here is that there are some folks that should 
not be hypnotized. Actually, in the opinion of some Christians, no 
one should allow themselves to be hypnotized! This is probably 
one of the big differences between Christianity and the eastern 
religions, whose devotees spend a lot of time trying to put 
themselves into trances, but my point here is that some folks may 
have religious objections to hypnosis, However, religious 
considerations aside, if a person is mentally unstable or 
schizophrenic, going under hypnosis could be the "trigger" that 
pushes that person "over the edge". 

In the past, a practitioner of hypnosis would normally be 
expected to have a certain level of competence, such that he would 
not attempt to hypnotize an unstable person. But, if a computer 
program that can be used by anyone is available to aid in 
hypnosis, it means that any unskilled (or worse) person could use 
the program. Even if the intent is good, we do not fully 
understand the effects of hypnosis, and do not know what side 
effects might develop. Further, the doctor (or whomever) would 
have a perfect opportunity to plant suggestions that might be 
somewhat at odds with what the patient would do without benefit 
of the "planted " suggestion (this could be anything from "you will 
see your dentist every six months" or "you will pay your bill on 
time" to possibly more suggestive suggestions, particularly if the 
patient is of the opposite sex). I'm not saying that most users 
WOULD do this, just that the program conceivably COULD be used 
in this way. 

With such a program available (and at least one already isb a 
person could even hypnotize himself. You've heard the old saying 
about a person that represents himself in a court of law, having a 
fool for a client? Nell, an unstable person using this program 
would be under the care of an unstable hypnotist. . 

And, of course, a program to hypnotize could be packaged as 
part of another program. I wouldn't be a bit surprised to find 
that some video games have "hypnotizing" qualities, they way 
some folks get "hooked" on them. But suppose that someone 
wrote a video game with the specific intent of hypnotizing the 
user as he plays, then planted a "subliminal" suggestion (perhaps 
some text flashed at various places on the screen, for only a 
fraction of a second) - perhaps to "play another game" (or 
something worse!). 

The thought that computers could be used to hypnotize 
occured to me a long time ago, but I never mentioned it because I 
didn't want anyone to do it. But now that someone has anyway 
(and even though in this particular case I am sure that the 
author's intentions are good), I feel that a warning needs to be 
sounded. Hypnosis is dangerous, we don't know that much about 
it, and while some folks appear to suffer no iU effects (and even 
then, we can't be 100\ sure), there are others who should NOT be 
hypnotized, especially by a non-professional. 

A few of you may be tempted to write a hypnosis type 
program anyway. Well, I'd advise that you forget it, since you 
really don't know what you're messing with. And if that isn't 



enough to dissuade you, keep in mind that if someone else uses 
your program and then goes out and commits some violent crime 
(against himself or someone else), you could wind up facing civil 
or even criminal legal action against you (stranger, things have 
happened, especially in this country where some folks seem to be 
"lawsuit happy"). 

Note that I never said that hypnosis doesn't work. The 
problem is that it DOES work - but you can neyer be sure 
beforehand exactly HOW it's going to work, or what the 
after-effects will be. So, don't try to hypnotize apyone, don't 
allow yourself to be hypnotized, and watch out for computer 
programs that flash at a rate of 12-16 cps! 

HEMIt rafP" IT W iT n w ° TAP ? <for th * Model HI version of 
NEWDOS/80, unless otherwise specified) - provided by Tony 
Domigan! 

1. To boot in lower caset 
SYS0/SYS,11,2F change 28 05 to 00 00 

2. To boot in 4Mhz on Model 4! 

STS0/SYS,13,B4 change 000000000000000000000000 
to 3A 10 42 F6 40 32 10 42 C3 B6 48 00 

SY80/SYS.11.DF change C3B648 to C3A850 

Also, execute the following SYSTEM command} SY5TEM,0,BJ«2 

3. When running on the Model 4 in the Model 3 mode, 
NEWDOS/80 version 2.0 does not get the date and time correct on 
warm boot because it uses the longer heartbeat counter applicable 
to the Model IH. To correct date and time updating on warm boot! 
SYSO/SYS.02,20 change IE 20 0D 36 IE 21 to 1? 20 0D 36 19 21 

4. For users who prefer the DD/MM/YY format to 
MM/DD/YY - Patch Date prompt on boot and reset (if active); 
SYS0/SYS,12,2B change 20 ED to 00 00 

SYS0/SYS,12.3E Change 20 ED to 00 00 

SYS0/SYS,13,4E change 4D4D2F44 44 2F to 44 44 2F4D4D2F 

(NOTEt The following patches will accomplish the same thing on 

the MODEL I ONLY:) 

SYS0/SYS,12,67 change 20 ED to 00 00 

SYS0/SYS,12.7A change 20 ED to 00 00 

SYS0/SYS,13,87 change 4D 4D 2F 44 44 2F to 44 44 2F 4D 4D 2F 

5. To allow DD/MM/YY in FORMAT command OXodels I & 

in>: 

SYS6/SYS,12,43 change 32 to 34 

This patch allows it to read 1300-baud cassette tapes* There 
might be others out there who converted tape S CRIPBIT to work at 
1500 baud, only to find out, later, that Disk SCRTPSIT won't read 
their tapes. The patch Is! 

PATCH SCRrPSTT/CMD CADD-5222,ITOD-Ar321142,CHG-32U42AF) 
This will write 0C9H into 421 IH on initialization, rather 
than zero, enabling 1500-baud cassette input. 

jjEHrtne/aA^ygpJbr Lyman Epp (comments by Nathan N. 
Harrington - Tnis is an optional zap to the Model m version of 
NEWDOS/80, that will add SYSTEM flag CB to say whether you 
are operating on a Model 4 computer. This will turn on the high 
speed clock whenever you boot up! 

SYSt/SKS,ll,12: chaw « 3A *6 13 B7 

to CCDM5IG7 

SYSI/SYS,13,M: chme MM MM MUM MM MM HUM MM ,: 

to 3AFF43CB7F28I5211I1ZCBF4 3»«13W 

SYS17/SYS,I2,37! chmgt FEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

to ft FE FT FE FE FE ft FE FE FE FE Ft FE Ft 7F FF 

If you want this to be done automatically (without a SYSTEM 
command), then the following zap wiU do the trick. This will work 
on Model m NEWDOS/80 operating on a Model m or 4 computer 
(this will not hurt on a Model HI because bit 6 at memory location 
4210H is unused. I made this a SYSTEM command because in some 
programs the high speed dock is unwanted)! 



SYSI/SYS,ll,12i 


dunge 


•J3AA5 13B7 




to 


45C0M5IB7 


SYSI/SYS,13,MS 


dame 


II II M M II M M II M 




to 


Zl 11 « CB FA 3A *3 13 C? 



NOTE! You will need to set SYSTEM option BJ-2 for disk 
I/O to work correctly. You may also want to set option AV equal 
to twice what you have it under the normal operating speed. 
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USE YOUR TRS-80 TO STUDY THE SCRIPTURES - If you are 
• student of the Bible, or especially if you're in any kind of 
ministry of the Bible* you'll appreciate a program by Scripture 
Software. The program is called "BIBLE SEARCH" and it permits 
you to search the entire New Testament Oting James Version 
only) for any word or portion of a word (more than one word or 
sequence of characters may be searched for at the same time). In 
this way, the program operates like a computerized Concordance. 
It will find all verses containing one or more of the given search 
strings, and display a list of those verses. References can be 
added or deleted manually) and the entire reference list can be 
saved to or retrieved from a disk file. There's also a function to 
sort references into Biblical order. 

The user can call up any of the referenced verses* and 
examine it alone or in context (with surrounding verses also 
displayed). You may "flag" (or "unflag") any verse thus displayed) 
and later mass delete all flagged or all un flagged verse 
references. The text for all referenced verses may be loaded into 
memory and displayed on the video, or printed out. You can even 
print multiple copies of the referenced verses for use in a group 
Bible study. 

The program and data files (which contain the King James 
Version of the New Testament) are available in both a Model I 
version (supplied on single density diskettes) and a Model III 
version (supplied on TRSDOS 1.3 double density format diskettes). 
The program itself will work under any Model I or Model III 
operating system. The price is 9140 and the Old Testament 
database is also available at extra charge. 

The only problem with this system is that in order to search 
the entire New Testament (or entire Bible) for a given subject) 
you will have to swap diskettes several times. However, both the 
program and the data files are in standard (copyable) format, so 
they can be backed up to a higher-density diskette. The entire 
New Testament and the BIBLE SEARCH program itself will fit on 
one 80 track double sided double density diskette, should you be 
lucky enough to have that kind of equipment. Obviously, there's 
no way to shorten the Bible (not without coming under the curse of 
Revelation 22H9, anyway) so if you're a serious Bible student you 
may want to invest in at least one high capacity disk drive (or 
perhaps practice patience while swapping disks...). 

Beyond that, I personally feel that the price may be a bit 
steep, especially considering that the data files are the King 
James Version of the Bible, which is in the public domain. I would 
personally prefer to see a modern-English version of the Bible 
used - my favorite is the New International Version - but 
unfortunately, that version (and almost every other 
modern-English version) is copyrighted, which might restrict the 
use that could be made of the program if that version were used. 
I personally find this a deplorable situation, that the only version 
of the Bible that can be freely used today (without fear of 
violating someone's copyright) is a 400 year old version written in 
antiquated English. I don't mean to step on anyone's toes, but 
I've always had considerable difficulty with "Olde English" (I 
couldn't understand Shakespeare when it was forced on me in High 
School, either). Note that when the Bible is translated into a new 
language for some tribe in Africa, we don't write it in a 400 year 
old version of their dialect, so why should the English-speaking 
majority of the world's population have to make do with the old 
version? (even though it was an excellent translation in its day - 
unfortunately) the English language has changed a lot since then!). 
For the record, I don't care for paraphrased editions or certain 
other modem "translations" that are partly wishful thinking on 
the part of the author(s), so you don't have to write and tell me 
about the dangers inherent in those editions - I'm fully aware of 
them. 

Anyway, next time you get into a discussion about the 
copyright laws, keep in mind that they are partly responsible for 
the fact that most English-speaking people still use the King 
James version of the Bible, rather than a more up-to-date 
translation, for quotations and other general use. Whether you 
find that a blessing or a curse will depend upon your point of view 
about the KJVi End of editorial. 

If you are comfortable with the King James version, and can 
afford the *140 for the program and New Testament data files, 
you'll find BIBLE SEARCH a great help with your Bible study, 
whether for your own use, for a use in home Bible study group, or 
for preparing a sermon or Bible-based lecture. BIBLE SEARCH 
requires 48K of memory and two disk drives (that's if you're using 
standard drives where everything won't fit on one disk), and is 
available from Scripture Software, P.O. Box 4131-C, Orlando, 
Florida 32853. For further information (or if you haw a different 
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make or model of computer and would like to inquire if a version 
of BIBLE SEARCH is available for your computer), you may also 
telephone Scripture Software at (303) 896-4244. 

THE FIRST CHECKSUM (REVISITED) - I have received a 
couple of letters in regard to this article (which discussed Ivan 
Panin's work in Bible numerics, and appeared in NORTHERN 
BYTES, Volume 3, Number 2). Rather than reprint the 
correspondence (which would take up quite a bit of space), let me 
summarize it here. 

Dr. Michael N. Ecker (129 Carol Drive? Clarks Summit, 
Pennsylvania 18411) is a mathematics professor with a PhD in 
that subject, and a self-described "atheist by conviction." Dr. 
Ecker took issue with my coverage and felt that the word "proof* 
had been used indiscriminately within the article, He also raised 
the issue of "selective perception." Here's an excerpt from his 
letter; 

"...the fabulous odds you quote require careful examination. 
I can, for instance, obtain a poker hand with the 2 and 3 of clubs, 
the & of hearts, the 8 of spades, and the queen of diamonds. This 
is quite a worthless hand. And yet, the odds against obtaining it 
are astronomical! Yet I did get this hand. 

"What I am getting at is the fallacy of selective perception. 
This is also known as seeing what you want to see. If you look 
for the number A, for instance, suddenly your world is filled with 
sixes: Six faces on a cube, 4 is the first example in mathematics 
of what we call a perfect number, it is the product of the first two 
primes, it is equal to both the sum of the first three numbers 
1,2,3 as well as the product of them, etc. etc. I am not trying to 
be that convincing, only to illustrate the point. In a recent issue 
of the Pennsylvania State Mathematical Association of Two- Year 
Colleges newsletter which just came out a will send a copy to you 
or anybody who requests it), by an interesting coincidence there 
was a piece on this fallacy and teaching students to understand 
and avoid it. The example there used the improbable number 47, 
and suddenly everyone was finding the number 47 all over the 
place. 

"In order for something of this sort to have any validity, for 
starters you would have to take somebody who had no idea as to 
what he was looking for and ask him: If you consider all different 
things you can think of doing with the passages in this book, 
which number strikes you as dominant or recurring? - and Oven 
pick an individual who is mathematically inclined. Only if he and 
others pick the same number (7 in the article you printed) 
consistently would further consideration be warranted. Any 
number can be found very often if you keep looking!" 

Although Dr. Ecker docs not indicate in Ms letter that he 
has ever done any actual research into Panin's work (would would 
put him in a much better position to criticize the article), he doe* 
bring up an interesting point. I can understand what he is talking 
about because even in Christian circles, there are people who find 
certain numbers everywhere. For example, I know people who see 
the number "666* everywhere (see Revelation 13S18 for the 
significance of this number), and while I agree that it is certainly 
worth noting when it pops up in something like the start/stop bit 
patterns of the Universal Product Code symbols used on 
supermarket products, I hardly find anything sinister when it 
turns up in a normal rotation - for example, if three digit numbers 
are used on the automobile license plate numbers in your state or 
province, it stands to reason that one out of every thousand 
persons is going to get a "666" - and in a state capital, there's 
even a reasonable chance that a government official could draw 
the number. In other words, having "444" on your license plate 
proves nothing - but if, for example, many high government 
officials came up with "444" on their license plates, and relatively 
few non-government folks got that number, then we might have 
something to be concerned about. In other words, finding a 
frequent occurrence of a number proves nothing unless that 
number occurs considerably more frequently than other numbers 
(all other circumstances being equal). 

I think that the point of Panin's research was that the 
number seven (and derivatives of the number 7) occurred much 
more frequently in the Bible than might be expected in normal 
Greek or Hebrew text. But I do not have the time to research this 
further, in order to prove or disprove it. That brings me to the 
other letter I received, from John Easton of Christian Computer 
Based Communications. (44 Delma Drive, Toronto, Ontario, Canada 
M8N4N6). Here's an excerpt from John's letter: 

"EMyl real reason for writing was in response to your 
mention ... of Panin's work on Greek & Hebrew numerics. We have 
more stuff on file (including a copy of Panin's book on the subject 



- strictly for the scholarly type*), which might be of interest to 
your readers should they like to contact us here. He have a small 
photocopied booklet on this phenomenon, and as an aid to checking 
out the claims made by Panin, a program written for the 
Commodore '64 (because of it's programmable character 
capabilities) of a full Greek/Hebrew Numerics Report Generator. 
Ill enclose * printout of the listing for your perusal. Generally, 
if one pays no attention to things like POKE (usually associated 
with screen colour and/or character definition) this should 
translate in a fairly straightforward manner to other machines. 
It is meant to function with a specific word processing package, 
but text processing shouldn't prove insurmountable. And I seem 
to recall there is a Greek/Hebrew Character file on the disk for 
loading into an EPSON FX-80 for printout." 

There you have it - if you are interested in this subject and 
would like to research it further, why not drop a line to John and 
ask him for more information and/or a copy of the program bating 
(which runs about 4-1/2 pages). It costs 37 cents to mail a letter 
from Canada to the 0.8. and they aDCfli use U.S. postage stamp*) 
so if you're requesting information, you might send about 40 cents 
in coin to help defray expanses (U.S. c flft p s spend perfectly well in 
Canada!). 

(Editor's plea - If you want to discuss this subject further, 
it would be highly appreciated if you could send your comments on 
TRS-80 compatible media (disk or tape - I'll even take text 
embedded in BASIC remark statements if necessary!), or better 
yet, send it to me electronically via MCI Mail! I positively hats 
to retype text into the computer!) 



LETTER TO THE EDITOR 



Jack, 



Two questions I would like to see discussed in Northern 
Bytes 1st 

A, Bow to use key f iles to access large data files i«. 2000 
records or more. My keyfile (2000, 8 byte keys) is loaded into 
memory. The continuous string manipulation occasionally gives 
me a garbage collection. Using MID* and POKEing into 13669 
helps but sometimes causes problems. 

B. Bow can I use the 2 upper 32K bytes in a Model 4 128K 
computer to hold a key file? I have looked through DOBPLU8IV, 
CP/M 3.0, TRSDOS 6.01 and the best I can find 1st Use it with 
GETs and PUTs to store info on a fast disk. Which means it 
simply saves time but does not effectively increase memory, 

(signed) Bra. J. Smith, St. John's High School, Shrewsbury, 

Masachusetts 01545 ^. .. L. _-l 

[Editor's Reply - Tou have to know exactly what is going on 
within a program if you want to eliminate "garbage collections" 
using the methods you've tried. Some BASIC .statements and 
functions create temporary strings, and if you don't realize that 
this is happening it may thwart your efforts to delay collections. 

Modular Software Associates produces a program called "The 
Collector" that eliminates or greatly reduces "garbage collection* 
delays. It's similar to Prosoft's Trashman" program, but uses 
1ms memory and is less expensive (it's sold by The Alternate 
Source for *24,95 plus the standard *3.00 shipping/handling 
charge). The only drawback of using a program like this is that it 
uses two bytes of memory for each active string, so if your 
program uses nearly all available memory now, this option may not 
work for you. 

The method you are using to access the two additional 32K 
banks of memory in the Mod 4 is the only practical method that I 
know of to use that additional memory from BASIC, 
unfortunately, both versions of BASIC supplied with the Model 4 
(the Model m BASIC in ROM, and the version of MBASIC supplied 
with TRSDOS 6.x) are designed to directly access only the 64K of 
memory that is directly addressable by the ISO microprocessor. It 
is very possible that in the future, a new version of MBASIC or an 
enhancement program that modifies the operation of one of the 
supplied versions of BASIC might appear, that would provide an 
easier way to utilize the additional 64K of "add-on* memory. 

I might add that at this writing, TAS is aware of a progr am 
that is functionally similar to the MEMDISK program of TRSDOS 
6.x, but that works with HEWDOS/80 in the Model m mode. If we 
are able to acquire the right to market this program, youTl see an 
announcement to that effect in the near future! 

If any of our readers has a better solution to your specific 
problem, I hope that they will pass it along to you, and send a 
copy to us here at NORTHERN BYTES so that we can share it with 
everyone!) 

/ 



READ IBM DISKETTES WITH SUPERZAP by William F. 
Terrell is reprinted from LLIST Newsletter (publication of The 
Rochester S-80 Computer Club, Inc.)! 

Have you tried to read IBM PC diskettes with SUPERZAP? 
Then you've noticed that your TRS-80 goes berserk after reading 
one sector (if you're lucky). If you make some minor patches to a 
copy of SUPERZAP and fix your PDRIVE specifications, you'll be 
able to use it in conjunction with DEBUG to access IBM PC 
diskettes, Here's how! 

First, why the difficulty in reading I BM PC d iskettes? It is 
because the PC uses 912 byte sectors and SUPERZAP has provided 
only a 256 byte buffer. When you read in a sector from a PC 
diskette, the last 256 bytes overwrites part of SUPERZAP. Hence 
the crash! 

Our solution is to move the SUPERZAP buffer (presently at 
5300H) to a new location which has the fallowing 256 bytes 
unused. I chose location 8000H. To make a copy of SUPERZAP 
with the relocated buffer, use SUPERZAP to change every 
occurrence of bytes 00 53 to bytes 00 80 in this copy. 

Next, set your PDRIVE specifications for the drive you will 
be using for the PC diskette. Use SPT-9 to set for the 9 sectors 
per track of PC DOS 2.0. Or, use SPTM8 if you have a double 
sided drive. Obviously, you will not be able to read the back side 
of the PC diskette without a double sided drive. Bet the 1' flag 
with the type of interface. I'm using the Radio Shack Doubler on a 
Model I, so I set TI«DI. You're ready to go! 

Use SUPERZAP in the usual fashion. Note that the first 
track is zero and the first sector is zero. As you page through the 
PC diskette with the plus and minus keys, you will see the first 
256 bytes in each sector. To see the last 256 bytes in a sector, 
use the 123 keys to invoke DEBUG, Set the DE BUG di spl ay for 
8100H with the 'S' full screen display. Hit <GXENTEHXENTER> 
to return to SUPERZAP's display of the first 256 bytes. Dont 
expect the DFS function to work since the PC directory is 
different than TRSDOS'. 

While I haven't tried it yet, you should be able to patch an 
IBM PC file sector as follows. First, modify the last 256 bytes of 
the sector while in DEBUG. Next, modify the first 256 bytes 
while in SUPERZAP. The patch can be written to disk in the usual 
manner using the SUPERZAP MOD command whether or not you 
actually made a change to the first 256 bytes. 

[NORTHERN BYTES EDITOR'S NOTE! The above article is 
reprinted mainly to prove that at least one person has succeeded 
(at least partially) in reading an IBM diskette using a lowly Model 
I TRS-80! In other words, the hardware is willing, but the 
available software is weak. What we need now is a good utility 
program that will read and write IBM disks - perhaps to copy 
to/from a standard TRS-80 disks, or perhaps to add this 
capability to one or more of the popular TRS-80 operating 
systems. I have a feeling that a well-written program of this 
type might be a hot seller, even if its only practical application 
would be to transfer ASCII files (word processor text files, 
BASIC programs saved in ASCII format, etc.) between the IBM PC 
and the TRS-80 Models I/HZ/4. If you dev elop anything along 
these lines, please drop us a line here at NORTHERN BYTES and 
let us know what you've accomplished!] 

CONVERT YOUR CENTRONICS 737 PRINTER TO A 
CBNTROHICS 739 (REVISITED) by Jack Decker - A couple of 
issues ago (back in NORTHERN BYTES, Volume 5, Number 2) I told 
you lew to upgrade your Centronics 737 line printer to a 
Centronics 739, The one thing that I couldn't tell you was how to 
program the 2716 EPROM used in the conversion. Nell, thanks to 
Joachim Kelterbaum, I now have the code you need to put into the 
EPROM in order to complete the convers ion. If you want to make 
the conversion and can't get the proper EPROM from Centronics, 
send me a blank disk (or SASE for hardcopy) and return postage 
and perhaps I can help. 

MODEL m DISK BASIC BUG? - According to an article by 
Don Hallden in the March, 1984 issue of TRS-80 MifTooomputet 
News, a numeric variable cannot be used to define field lengths b\ 
FIELD statements. For example, this line would generate a 
syntax errorl 

L-20S FIELD 1, L AS A* 
However, according to Don, the VAL function can be used to 
achieve the same effect. This line WOULD work! 

L«-"20"l FIELD 1, VAL(L«) AS A* 
So, it is possible to get a field length from a variable* hut the 
question remains, why can't you use a numeric variable? Is this a 
bug, or a design "feature" of Model HI Disk BASIC? 
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MOONLIGHTING WITH TOUR WORD PROCESSOR - This 

article was written by Jessie Gunn Stephens and was submitted to 

NORTHERN BYTES by J. Norman Goods, Publisher of MICRO 

MOONLIGHTER NEWSLETTER (4121 Buckthorn Court, Lewisville, 

as 75028 - Telephone (214)339-1115). COPYRIGHT 1W4 by 

torman Goode. 

If you have a personal computer, a printer, and word 
processing software, you have the wherewithal to start your own 
business. You can work part time or full time out of your own 
home, with Ipw overhead and a consistent demand for your 
services. 

If you're a competent typist, you may have already thought 
about setting up a word processing service bureau in your home. 
Thousands are doing so across the land and are finding small 
businesses and professional people, doctors, lawyers, dentists, 
and so forth, eager to employ them, either on a contract or a piece 
work basis. 

The demand for such services is not confined to large cities, 
either. In fact, smaller communities, where technology is slow to 
arrive, sometimes offer the best ground floor opportunities for 
starting a word processing service bureau. Competition may well 
be minimal, and potential clients may respond more favorably to 
higher fee$, since their experience with technology is more 
limited, Of course the word processing bureau that charges more 
than the local typist must be ready to Justify the cost difference. 
In most cases, this means the highest quality and fastest 
turnaround in town. 

But the WPS bureau is by no means the only avenue to 
independent income via your word processor. Many proud 
entrepreneurs have found success in everything from list 
brokering to freelance magazine writing — all made possible by 
the personal computer. Some entrepreneurs write and publish 
newsletters, others computer documentation, others various kinds 
of bibliographies and directories. 

Word processing has been a boon to freelance writers, no 
matter how large or small the market they serve. Manuscript 
mechanics are a breeze on the computer, as are multiple copies and 
large scale revisions. As the publishing business moves toward 
- — -ironically controlled operations, writers working at home with 
.r own word processors will have the competitive edge in a 
rughly competitive field. 

In fact, with the approach of the Information Age, the 
"cottage industries" predicted in Alvin Toffler's bestseller THE 
THIRD WAVE are beginning to proliferate. People are using their 
personal computers to provide specialized writing and publishing 
services to segments of the population as varied as neighborhood 
mom and pop proprietors and corporate data processing 
professionals. 

At this point, straight and simple word processing is still 
the most papular service being offered out of private homes and 
small offices. And it may be the one way to open the doors of 
opportunity for you, particularly if your word processing package 
is fairly sophisticated and you are weU versed in its use. And if 
you're a competent typist. 

Your business overhead will include not only your computer 
and a good quality printer (usually letter quality), but also 
adequate storage media, a good supply of printwheels or thimbles, 
carbon film ribbons, high quality paper, and a spelling checker 
program. 

The size and range of such a business is up to you. You can 
start small, perhaps on a part time basis, and work up to whatever 
work load you want to handle. You can offer any range of 
services, from straight typing, charged by the page or hour, to 
whole newsletters, weekly or monthly bulletins from businesses, 
churches and clubs, product catalogs, handbooks, pamphlets — 
whatever your customers need. 

If you have specialized knowledge, for instance if you've 
worked in a law firm or a dentist's office, seek your first 
customers among people who will appreciate the fact that you're 
already familiar with the forms they use and the jargon they 
write. If they're pleased with your work, be sure to ask them to 
tell their colleagues about your service. Anytime you have a 
-— nsfied customer, give him or her a few of your business cards 
and out for you. 

Before you decide what fees to charge and begin soliciting 
business, though, there are a number of considerations you'll want 
to work out for yourself. Some of the types of questions you'll 
want to decide in advance are! 

- Will you bill by the hour, page, or document^ 
/ 
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- How many copies will you provide? 

- Can you handle forms? 

- What will you charge for revisions of finished work? 

- Can you index? 

- How will you protect the clients' material against fire or theft? 

Once you know the answer to these and similar questions 
about the nature of your business, you can set a fee schedule to 
cover your time and overhead and then advertise your services. 
One successful entrepreneur got all the work she could handle in 
the following way! 

"For a modest fee," she says, "I was able to get 
eleven lines of advertising displayed on cable 
television for a week, The local newspaper offered a 
four dollar ad, of which I took advantage. Then I 

prepared two sets of business letters one for 

lawyers and courts, one for business people and 

hand delivered samples to lawyers and business 
people in the community," 
Another beginner found that advertising her services in a 
large city newspaper prompted only a few customers to call. But 
when she put a notice in the local suburban "shopper's* weekly, 
she had to turn away business, It was evidently the idea of local 
service that people responded to. She gets most of her business 
from doctors, lawyers, and other professionals — people for 
whom accuracy and quality count a lot. She provides both, and she 
charges accordingly, with no complaints from clients, 

Straight text and legal forms make up the bulk of this 
entrepreneur's work. As for you, whether you want to process 
straight text provided by clients, write and sell your own 
material, or process information for mailing lists, your word 
processor can be the key to your own full or part time business. 
The demand for such services is growing. If you can meet it with 
a high quality product, you can be your own boss. 
• • * • • 
Ms. Gunn is a widely published freelance writer. Her 
start-up guide for home word processing services] NEW PROFITS 
IN WORD PROCESSING is available for «19.95 plus »2.00 Shipping 
& Handling from: J. Norman Goode, Publisher; 4121 Buckthorn 
Court} Lewisville, Texas 73028. 

DEFEAT BACKUP PROTECTION ON TRSDOS 6.x DISKS by 
Nathan W. Harrington - Here is a one-liner that will take a 
TRSDOS 6 diskette and make it on -backup -protected. So far, I 
know that PFSfile and PFSreport for the Model 4 have limited 
backups. I found this out because PFSfile came with our Model 4. 
Angered by not being able to make unlimited backups, I set out to 
solve the problem. As it turned out, it took about 5 minutes to 
locate and fix the problem, The following program contains the 
basic necessities required. You can change the drive containing 
the diskette by changing the drive number in the OPEN statement. 
Operation is very simple. Insert the diskette to be unprotected in 
drive (or whatever you change it to) and run the program. The 
result, unlimited backups. The program: 

10 OPEN "R", 1, "BOOT/SYS.LSIDOSi0" : GET 1,3! POKE VARPTR 
(#1) -f 198, ! PUT 1, 3 ! CLOSE i END 

TASMON PATCH FOR MODEL 4 (provided by Nate Salsbury) - 
If you have the Model III version of TASMON, and are using it on 
the Model 4 and find that the SHIFT-* (screen dump) and S (sum) 
functions don't work correctly, apply the following patch! 

PATCH TASMON/CMD (ADD=79B9,FIND=210331,CHG=212531> 

This patch is in Model III TRSDOS 1.3 patch format. If you 
are using a different DOS, you may have to use a different method 
to make the patch. What you are doing is changing a LD HL,3105H 
instruction at 79B9H (points at a keyboard scan table in the Model 
III) to a LD HL,3125H instruction (points at the printer driver 
table). Nate points out that while this will fix TASMON, it may 
not provide complete compatibility if some (U)ser routines have 
been added that use shifted keyboard characters for input, 
because the Mod III keyboard table and the printer table differ 
once you get past the '+' sign. 

WANTED TO BUY - A 202 (not 212) MODEM that can be 
hooked up to a TRS-80 Model I via the RS-232 interface. Contact 
Dave McGlumphy, 4429 Paula Lane, Chattanooga, Tennessee 

37415. 



oatiEauuuKttixea - way back wh* n <ust year), »e 

published Dave McGlumphy's COMPDIR program (as slightly 
rrodified by ye editor) that wm used to compare the directories of 
two NEHOOS/80 diskettes, and send the similarities or 
differences to video, printer, or a disk file. The disk file option 
was included to permit easy creation of ILF or XLF files (as used 
by MEWDOS/80's COPY command). Trouble was, there wm on* fly 
in the ointment - if any filename in the directory had an extension 
of one or two characters in length, the extension would be padded 
with spaces, and that's not valid in an ILF/XLF file, Since this 
program has already been debugged a couple of times previously, I 
decided to renumber it and reprint it in its entirety, to avoid 
confusion, 

If you now have version 2.2 (which, by the way, may be the 
version you have if you got it from an early TAS Public Domain 
Library disk), then do the following to upgrade to version 2.3! 

1) Renumber the program starting at line 10, in increments of 
10 (do a RENUM 10,10 from BASIC "READY"). 

2) Change lines 10 (the version number), to <"<100">, and 90 
and 110 (miscellaneous changes) to be the same as the 
corresponding lines printed below, 

Once you've done this, COPT won't puke on your ILF/XLF 
files that you've created using COMPDIR. I find that I use this 
program quite a bit, to compare the directories on my 80-track 
double-sided disks. You may find it useful as well. Here's the 
BASIC program listing - note that lines 10, 30, and 40 contain 
embedded linefeeds (these can be inserted during BASIC line 
entry through use of the down-arrow key)', 

10 REM COMPDIR 2,3 — ORIGIHAL PROGRAM BY 

DAVE MCGLUMPHY, 4429 PAULA LN, RED BANK, TM 37415 
PROGRAM MODIFIED BT JACK DECKER 

20 CLSt CLEAR 6000! DEFTHT A-Z ! DIM 

N(444),P»(444),A»(8>,H«8>! FOR J-l TO 8! FIELD 1, (J-1HKJ2 AS 

X*, 1 AS AMJ), 4 AS X*. 11 AS H«(J), 16 AS X«! NEXT J! M-216! 

S-8! X*-"D*VISIBLE", GOSUB 180! ff M-208 THEN S-*4i 

XM'SYSTEM"! G06UB 180 

30 N-l! GOSUB 160! H=2? GOSUB 160! PRINT*SORTING ...*! 

CMD"0",C 1 P*<1>,N(1>! CLS! FRUIT-DO YOU WANT A LIST OF THE 

FILENAMES THAT APPEAR ON! 

<0> BOTH DISKS 

<1> DISK • 1 BUT NOT DISK t 2 

<2> DISK • 2 BUT NOT DISK # 1 

<C3> EITHER OF THE TWO DISKS BUT NOT BOTH" 

40 GOSUB 200! A=VAL(X*)! CLS! PRINT "DO YOU WANT THE LIST 

OF FILENAMES PRINTED ON! 

<0> VIDEO DISPLAY ONLY 

Cl> PRINTER AND VIDEO DISPLAY 

<2> DISK FILE AND VIDEO DISPLAY 

<3> PRINTER, DISK FILE, AMD VIDEO DISPLAY"! GOSUB 200! 

B-VALCX*) 

50 IF B>1 LINE INPUT "OUTPUT FILESPEC? NX*'. ON ERROR 

GOTO 220! OPEN*OM,XS! ON ERROR GOTO 

60 L*PEEKU6598): M*PEEK< 16999)1 IF 

(L+M»256K(FEEK(16544HPEEK(1654S>*236><:100 THEN M-FRE(X»>! 

DOTO60 

70 CLS! IF A-3 PRINT "DISK #*, 

80 PRINT "PROGRAM NAME"! PRINT! FOR J-l TO C! IF 

P*(J)-P*<J+1> THEN J-J+l! IF A-0 THEN 90 ELSE 150 ELSE IF 

(H(J) AND AW) GOTO 150 

90 Xi-"/"+RIGHT»(P»(J),3H" "! X»-LEFT«(X»,INSTR(Xs," ">-l>: IF 

XS-V" LET X*»" 

100 S-INSTR(P»(J),* *>! IF S-0 OR S>9 LET S-9 

110 X«=LEFT»(Pt(J>^-lHX»! IF (B AND 2) PRINT #1,X» 

1 20 IF A-3 PRINT N( J), 

130 PRINT X«! IF (B AND 1 ) - THEN 150 ELSE IF A-3 THEN 

X»«MID*(BTR«<H<J)>,2>+" "+X» 

140 LPRINTLEFT»(X**STRIHGS<15,32>,16>; 

150 POKE 165984.! POKE 16599,M! NEXT J! END 

160 PRINT "WHAT IS THE SOURCE DRIVE NUMBER FOR DISK #" 

N" (0-3P "i! GOSUB 200! PRINT X«i ON ERROR GOTO 230! OPEN 

■R-,1 ,"DIR/SYS!"+X«) FOR S-3 TO LOF(l)! GET 13! FOR J-l TO 8! 

IF <ASC(A»<J» AND M>-16 THEN C-C+l! P»(C>"N»(JB N(C>-N 

170 NEXT! NEXT! PRINT "FINISHED READING ALL" S-3 

•SECTORS"! CLOSE! ON ERROR GOTO 0! RETURN 

180 PRINT "INCLUDE "XS" FILES? "J! X«-INKEYS 

190 X*=INKEY»! IF XtO"N" AND XsO'n* AND X»0"Y" AND 

XK>"y" THEN 190 ELSE PRINT X»! IF X»-'N" OR X*«"n" THEN 

RETURN ELSE M-MSS RETURN 
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200 X*-INKEY* 

210 X«=INKEY«: IF X*<"0" OR X*>"3" THEN 210 ELSE RETURN 

220 PRINT "BAD FILESPEC OR DISK I/O ERROR - TRY AGAIN"! 

RESUME 50 

230 IF ERR=>1 14 RESUME NEXT ELSE ON ERROR GOTO 0! 

RESUME 

CALLING MCI MAIL FROM CANADA - Sine* we published 
the article on MCI Mail in NORTHERN BYTES Volume 5, Number 2, 
I've had a couple of questions regarding accessing MCI Mail from 
Canada. First of all, it should be noted that MCI Mail can be used 
to access Dow Jones News/Retrieval, but the reverse is also true 
- Dow Jones News/Retrieval can be used as a "gateway" into MCI 
Hail, The difference is that when Dow Jones is used as the 
"gateway", a per-minute charge applies while accessing MCI Mail 
directly incurs NO per-minute charge (U.S. users that are 
currently accessing MCI Mail through Dow Jones would do well to 
get their own "direct access" MCI Mail account, so that they can 
access MCI Mail directly without paying the per-minute charge). 
There may be other services that offer a "gateway" into MCI Mail, 
however, almost any of these will incur a per-minute charge when 
used, plus (possibly) an additional Bell Datapac surcharge when 
accessed through that system in Canada, 

MCI Mail has indicated that at some point they may extend 
service to Canada, possibly by installing an (800) INWATS service 
line that could be accessed from Canada. If you would like this 
service, contact them and let them know about it (write Marketing 
Department, HCI Mail, 2000 M Street N.W., Washington, D.C, 
20036). In the meantime, if your business could stand to profit by 
being hooked up with MCI Mail, you might consider using one of 
the U.S. local access numbers (if you can call between midnight 
and 8 AJ4., the rate would be relatively low, especially if a 1200 
baud MODEM is used). Here's a few suggestions! In the Atlantic 
provinces and Quebec, try Boston at (617) 262-6468, In Ontario, 
nearby points are Buffalo at (716) 847-6050, Rochester at (716) 
955-96150, and Detroit at (313) 962-5980. Users in central Canada 
can try Milwaukee at (414) 347-1769 or Minneapolis at (612) 
893-9462. Western Canadians will probably have to call 
Sacramento at (916) 442-6986 or Oakland at (415) 540-1114 
(believe it or not, there is no local number listed for Seattle as of 
this writing!), Keep in mind that you can register for MCI Mail by 
MODEM, type the word "REG7STER" for both User I.D. and 
password and follow the instructions (see the article in Volume 5, 
Number 2 for more information), Once you're an MCI Mail user, 
you can type HELP PHONES every so often, and possibly find a 
new phone access number nearer your location, 

A ZERO-COST HARDWARE PERIPHERAL by Alex Auerbach is 
reprinted from the Valley Computer Club Newsletter! 

Having taken on the job of printing the club newsletter 
mailing labels, I was faced with a problem, I have an Okidata 
printer with pinfeeds on the platen, but without a tractor. I am 
too cheap to buy a tractor, and didn't -want to buy labels on 9 1/2 
inch wide pinfeed carrier paper, since they cost much more per 
label than the standard one-wide mailing labels. But using the 
pinfeeds on only one end of the platen caused the labels to shift 
in the printer. 

My solution is elegantly inelegant, but appropriately cheap, 
I made a tunnel of cardboard, as wide (exactly) as the label carrier 
paper, about a quarter of an inch high, and a couple of inches deep, 
I then taped it atop the printer, and ran the labels through it, 
down around the pinfeeders on one end of the platen, and out. The 
tunnel (a flattened loop of wire might have worked as well, I 
realized after my fingers were covered with glue) guides the 
labels quite nicely without any shifting, and the pins on the one 
side do a fine job of pulling the carrier through. Now, if I make it 
in Hong Kong and advertise it in Byte,., 

FOR SALE - TC-8 High Speed Cassette Unit ("Poor Man's 
Floppy*) with homebrew printer interface installed. Includes 
TC-8 operating system software, Also includes attached printer 
cable with edge card connector for Centronics 737 or 739 (Line 
Printer IV) parallel printer (connector could be changed to 
standard parallel printer connector to work with other brands of 
printers). Sold as is, on a "worked when removed from service'' 
basis (was replaced by a disk system). Great for the kid in your 
computer dub that bought an old Model I, and wants to run a 
printer (or hates the 500 baud cassette speed!) but can't afford an 
expansion interface, Will sell for first f 100 or best offer of »50 
or more. Contact editor of this publication (see return address on 
back page). P.S. Need a printer as well? Make me an offer on the 
above unit plus my Centronics 739 (upgraded from 737, now n. 
graphics capability) letter-quality printer (same printer used ' 
print NORTHERN BYTES!). 
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FROUDLV FRESEHTS 

* Learns your KeystroKes 
* Hhat you see is what you get 
* Create an in-memory image of your pages 
* Twenty-six in-memory text storage buffers 
* Automatic column formatting for tabular text 
* Page editing mode for files larger than memory 



SATISFIES EDS USERS WRITE US ! 



EDX has been a real pleasure 

very powerful, practical, and reasonably 

priced EDX should join the hall of 

fame along with Tasmon and Trackcess 

Most versatile program available have 

experienced no problems with EDX ..... 

Dinston Atkinson Columbia, MO 



n very good value at the stated list 

price Overcomes the limitations of 

TRS 80 hardware as well as any editer can 



David Debater Houston, TX 



TRS-QD MODEL I and III $23.95 



THE ALTERNATE SOURCE 784 N. PENNSYLVANIA LANSING Ml 48988 



.9 #29. 9S 
CHEKBOOK 4. 0. .9 M9. 95 

ABASIC 9 #69. 95 

ADVENTURE STS. 9 #39. 95 
Total = 

Add for Shipping and Handling + 
Asoant Enclosed = 



SEND HE Copy! sJ EDX Editer. 

_ Copyt si 

CopyCsl 

CopyCs] 



MY ADDRESS IS 



3.0Q 



I ase a TRS-80 HDDEL 



He also accept Visa, Hastercharge, and COD Orders - Phone 517-4B2-B27B 



iBSSIC 



69.95 



I Moduler programming in BASIC i Edit with your word processor 

f No line numbers neccessary 1 Create libraries of relocatable code 

f Support structured constructs I Label Routines and Subroutines 



CHER8Q0R 



49.95 



f Deducts Service charges f Provides detailed reports 

* Adds Interest income I 420 user definable catagories 

f Deducts Automatic payments f Supports over 1220 entries 



TBE JDVEHTURE S7SIEM 99.95 

f You get five free adventures written by past customers 
f Make heroes and monsters out of the people you know best 
f Complete high level adventure language in machine Language 
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c/o Jack Decker 

1804 West 18th Street 
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SauK Sic. Marie, Michigan 49783 
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Telex: 4501027413 

(Answerback: 6501097413 MCI) 

POSTMASTER: If undeliverablc return to: 
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